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Introducción 



Los ordenadores con el sistema MSX han aparecido para revolucionar el mercado del 
ordenador personal. Primero ofrecen un BASIC perfeccionado, con posibilidades gráficas y 
de sonido polenles, haciéndolo un modelo ideal para la programación educativa y de 
entretenimiento. Segundo, dan a las casas de software la ventaja de crear programas 
ejecutables en una amplia gama de ordenadores; esto implica que el usuario del sistema 
MSX tiene una amplia gama de programas de primera linea para su ordenador. 

Con este libro. Anuya Muiíimedia continúa con su tradicional edición de libros de 
alia calidad, tanto literaria cumo de programas, en beneficio del ordenador personal. 

Organización de los programas 

Los programas de juegos están ordenados en este libro, en orden gradual, de más 

fáciles a más complejos. Sin embargo, y teniendo en cuenta que hay gente que prefiere 

determinados tipos de juegos, hay un índice que agrupa los programas según el tipo de 

iuego. Si deseas juegos de estrategia, encontrarás los programas consultando el indicc. 

Fácil de usar 

Para acelerar la depuración de los programas, el programa verificador facilita la 
detección y corrección en la transcripción de alguna sentencia. 
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Pero _y esto es importante— primero lee el capítulo «Fiabilidad en los programas», 
si quieres obtener un máximo beneficio a la hora de transcribir exactamente los progra- 
mas. 



A la hora de jugar 

Para ayudarte a manejar más rápidamente los juegos, se han prefijado las órdenes de 
juego. Exceptuando los casos que se especifican en la introducción a cada juego, las teclas 
de espaciado y movimiento de cursor se emplean del siguiente modo; 



TECLA 

Movimiento del cursor 
Movimiento del cursor 
Movimiento del cursor 
Movimiento del cursor 
Barra espadadora 



hacia arriba (T) 
hacia abajo (i) 
a la izquierda 
a la derecha (-*) 



FUNCION 

Mueve la mira u 
Mueve la mira u 
Mueve la mira u 
Mueve la mira u 
Botón de disparo 



objeto arriba 
objeto hacia abajo 
objeto a la izquierda 
objeto a la derecha 



Objetivos de esta estructuración 

Espero que según vayas leyendo y probando los programas de este libro aprendas las 
bases de cómo programar tu ordenador con el sistema MSX. Para ello hay una lista con 
las variables, y cada subrulina va encabezada con un titulo dentro de ios listados de cada 
programa; esto te hará comprender su funcionamiento. 

Te desafio a que hagas las mejoras que se te ocurran en los programas de ios juegos. 



Sugerencias 

Anaya Multimedia estará siempre interesada en recibir correspondencia de sus ledo- 
res, ya sean elogios o quejas. 

¡Diviéríete con los juegos del ordenador! 



FIABILIDAD EN LOS PROGRAMAS 

Los programas invierten mucho tiempo en su transcripción y depuración. Para facili- 
tarte la lectura y depuradón de éstos, tus listados han sido especialmente estructurados; 
incluimos el útil programa verificador para fadlitarte la ejecudón de los programas de 
juegos. Continúa la lectura de este capítulo e introduce el programa verificador antes que 
cualquier otro programa de juego. 
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FORMATO DE LOS LISTADOS 



Los fistados de los programas de este fibro han sido procesados mediante un progra- 
ma foTmateador que los hace más legibles, además de mejorar su presentación. Este 
programa formateador: 

— Afinca las sentencias a la izquierda para evitar que se escalone el margen al ir 
incrementándose ios números de línea. 

— Inserta espacios entre las palabras claves. 

— Transforma los espacios de las cadenas de caracteres, es decir, entre comillas (''), en ■ 
un corchete tumbado (-). 

El formateado hace iegibies los programas, pero te causará errores de transcripción a 
menos que se sigan las indicaciones que ahora expHcamos. 



REGLAS DE TRANSCRIPCION 

En los listados de los programas los espacios se han empleado sólo para facilitar su 
lectura; por ejemplo, la línea.: 

10 PR I NT " „CARACTERES^ " 

has de introducirla en tu ordenador como: 

10 PRINT" CARACTERES " 

En las cadenas de caracteres se introducen a menudo espacios, pero sólo has de pulsar 
un espacio cuando veas el símbolo Este carácter no lo verás en tu teclado; lo 
incluimos únicamente para que sepas cuándo has de teclear un espacio. 



Caracteres confusos 

Existen caracteres muy parecidos que quizá te induzcan a introducirlos incorrectamen- 
te y producir un error en tu programa. Estos son: la letra I y el número 1, la letra O y el 
número 0. En los listados el número cero lo escribimos con una barra atravesándole (p). 
Estos caracteres confusos se reconocen fácilmente en los fistados; 



CARACTER LISTADO 

Letra I I 
Número 1 1 
Letra O □ 
Número ?! 0 



Si optas por modificar programas e introducirlos a partir de tus pripias notas, te 
ocurrirá que hay caracteres muy parecidos escritos a mano. Nosotros te aconsejamos: 



CARACTER CONFUSO ESCRITURA RECOMENDADA 

Letra Z y número 2 2,2- 
Letra O y número fl 0 , 0 

Letra S y número 5 S , 5 

Letra 1 y números 1 y 7 I 1 ?■ 

Los símbolos de puntuación son también una trampa: 

• Las comas (,) y los puntos (.) no son intercambiables. 

• Los dos puntos (:) y el punto y coma (;) tampoco lo son. 
s Lo mismo sucede con los apostrofes (') y las comillas ("), 

e Usa los paréntesis — ( )— y los corchefes — []— correctamente. Asegúrate de que 
están bien emparejados: una forma rápida de comprobarlo es contar los paréntesis 
o corchetes izquierdos y derechos, y ver que hay la misma cantidad dentro de la 
expresión matemática. 

• La tecla SHIFT has de pulsarla cuando introduzcas algunos caracteres como !. " %. 
etcétera. 



Graba (CSAVE) los programas 
antes de ejecutarlos (RUN) 

No te olvides del viejo refrán que dice: 

«Los programas transcritos y grabados hoy sobreviven hasta mañana.» 

Asegúrate de grabar en diskelte o cinta los programas según los introduzcas. De vez 
en vez eJ teclado se bloqueará, especialmente si tratas de ejecutar un programa con un 
error. Nosotros te recomendamos, y no lo olvices, que grabes siempre una copia del 
programa primero y luego elimines todos los errores de transcripción. 

Nota: Algunos programas tienen ayudas para cargar subrutinas en lenguaje máquina 
en zonas altas de la memoria y alterarán los punteros del sistema. Si se interrumpe la 
ejecución de un programa de este tipo, el programa en lenguaje máquina y los punteros 
quedarán intacíos en memoria, incluso si introducimos el comando NEW. Cuando depures 
los programas, grábalos antes de ejecutarlos e inicializa (RESET) tu ordenador después de 
un error de ejecución, para evitar continuos errores en la ejecución de los programas 
transcritos o cargados en memoria. 



COMPROBACION CON EL PROGRAMA 
VERIFICADOR 

Cuando tecleamos los programas de juegos se introducen casi siempre errores de 
transcripción. Entonces pasamos años intentando ver dónde está la causa del error. 



Incluso los programadores expertos no encuentran fácilmente el error y tienen que com- 
probar con el libro el programa entero, especialmente las .sentencias DATA. 

Para evitar esta odiosa tarea, ofrecemos dos subrutinas cortas que debes teclear y 
grabar antes que los programas. Estas son: 

« El programa localizador, y 
e El programa verificador. 

El programa verificador calcula un número para cada sentencia del programa, y lista 
una tabla con los números de sentencia y su clave, además de una clave tota! para el 
programa. 

Cuando introduzcas un programa, ejecuta el programa verificador y compara la tabla 
de claves con la que tienes en el libro. Cualquier diferencia de clave indica un error en la 
transcripción de dicha línea. 

Para que el programa verificador opere correctamenle se le ha de dar la dirección de 
memoria donde comienza el programa en BASIC El comienzo de la memoria BASIC 
vana según el lipo de ordenador MSX, teniendo así diferentes mapas de memoria. El 
localizador es un programa que busca la dirección de comienzo exacta de la memoria 
BASIC de tu ordenador. 



Grabación del "localizador" y del "verificador" 

Sigue estas instrucciones para transcribir y grabar en cinta ¡os programas locaii;íador 
y verificador. No grabes otros programas en la misma cinta, para no perder tiempo 
adelantando rebobínando la cinta al cargar tu programa y al cargar el programa 
verificador: 

1. Introduce el programa localizador que hay un polo más adelante v grábalo en 
cinta con la orden CSAVE "LOCALJ^\ 

Nota: Verifícalo carácter a carácter tú mismo, después de haberlo grabado. El 
localizador es el único programa de este libro que no puede ser comprobado por 
ei verificador. Esto es debido a que para ejecutar una comprobación por el 
verificador hemos de inicializarlo con la dirección que nos dé e¡ localizador, y sí 
éste está introducido incorrectamente no lo podremos ejecutar. 

2. Ejecuta el localizador; mientras se ejecuta aparecerá en pantalla un número en 
constante incremento; éste se denomina posición. Cuando termine la ejecución 
aparecerá el siguiente mensaje en pantalla: 

Lo encontré; el BASfC comienza en la dirección NNNNN siendo NNNNN ¡a 
dirección donde comienzan los programas en BASIC. 

Cambia el valor MEBA (memoria de BASIC) en ia linea 629?HS del programa 
verificador por este vaior. 

í. 



3. introduce el programa verificador que te damos a continuación. Grábalo en cinta 
mediante la orden SAVE"CAS:AUTVER"; el auto verificador es la versión del 
programa verificador que se autocomprueba. 

Nota: La orden SAVE hace que el programa verificador se almacene en íu cinta 
en caracteres ASCII. Esto es necesario, dado que al cargar el programa verificador 
con la orden MERGE a continuación del programa de juego sin borrarlo opera 
con ficheros de programas en ASCII. 

4. Carga el verificador para que se autoverifique con la orden LOAD"CAS:AUT- 
VER". 

5. Ejecuta el programa para que se autoverifique con la orden RUN. Se ejecutará 
sobre si mismo y nos dará una tabla con las claves de sentencia y una clave total 
para lodo el programa, 

6. En este momento quizá hayas tenido un error o no. Si la tabla ha salido completa 
incluyendo !a clave del programa total, compárala con la tabla que te damos a 
continuación. Si ¡as claves totales del programa difieren, entonces procede a 
comparar las claves de cada sentencia con las que te damos; así localizarás el 
error y lo podrás corregir. 

No(a: Los programas verificador y autoverificador nos darán a veces diferentes 
claves para la misma sentencia, incluso estando perfectamente transcrito. Esto se 
debe a la cantidad de memoria de tu ordenador —mira más adelante las hmitacio- 
nes del programa verificador en el apartado «Limitaciones». 

7. Repite los pasos del 4 al 7 hasta que tu programa verificador esté correcto. 

8. En la línea 62<p2(¡) cambia el valor de E-625^ por E = 61999. Graba en tu cinta 
una copia del programa verificador con la orden SAVE"CAS:VERIF1". 

Nota: Esta versión, llamada verificador, es tu programa comprobador de los 
restantes programas del libro. La versión autoverificador sólo se usa para compro- 
barse a sí mismo. 

Programa "localizador" 



O I o 

1 5 REH prueba" 12345 

] 7 Bí=" 32„112«U4„117„101„98„97 I 

O I ^32„49„50„5r':CLS:PRINT: FRIN | Q 

I T: PRINT"posiciün";CHRÍ í 11 ) i 

I ; TAB( 11 ) "localizador" :PRI ¡ 

O I NT :PRINT: PRINT ¡ Q 

I 10 PRINT CHRÍÍ 11 )! MEN:PE=PEEK | 

I (MEN): IF PEO 143 THEN t1EN= ¡ 

O 1 MEN+1 : BOTO 10 | O 

I 15 T= MEN : Aí="": POR I = 1 TO ! 



11 : MEN= MEN+1 : PE = PEEK ( 
O i MEN ): At=At+STRt( PE); NEXT 

20 IF AÍOBt THEN MEN=T+1 :GOTO 

O i 30 FOR 1=1 TO 7: PRINT :NEXT: PR 

INT "Lo„encontre!„-„el^BASIC„ 
comiensa^en": PRINT "la^direcci 
O ' on:„"; T-5 



32774 iooaItzMtor 



<^lor «ato ^to ttmt 



run 



Programa "verificador" 





color^ a 



O 
O 

o 
o 
o 



62000 MEBA =32769! 

62001 CLSiPRlNT TAB ( 10) ; "VERIFICADO 
R" ! PRINT: PRINT: PRINT 

¿2004 I NPUT " Efltp i ez a„en„ I a„l i nea " ; S 
T 

62005 CLS: PRINT TfiBílO) "VERIFICADO 

R":FDR 1= 1 TO 6: PRINT: NEXT: P 
RINT TAB(4) "Sal ida„por«impre 
scJra" TftB(24) "<I>"!PRINT:PRI 

NT:PR1NT TAB(4) "Sal ida^par^p 
antalla" TAB(24) "<P>":FOR 1= 
1 TO 5:PRINT:NEXT 

62006 PRINT "„^„„^^TecIea„'P'„Q' T " 
62010 X$=INKEY$:IF INKEY$="p" OR X$ 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



=="P" THEN 62015 ELSE IF X*<>" 
i" AND XíO"!" THEN 62010 

62015 REh RUTINA IMPRESORA 

62020 CLS : PR I NT " VER I F I CANDO : - " ¡ E= 
62500! :LINK=MEBA 

62100 REM Bucle principal 

62120 T=LINK 

62130 LINK=PEEK<T+1)*2S6+PEEK<T) 

62135 LN=PEEK(T+3)«256+PEEK(T+2) s IF 
LN <ST THEN T=LINK.¡60TD 62130 

62136 IF LN>E THEN PR1NT!PRINT"T0TA 
L=";CH: PRINT: INPUT"BORRA„EL„V 
ERIF1CAD0R«PARA„EMPEZAR„A„JUB 
AR(<S>^0„<N»"iX*:IF X*="S" O 
R X$="s" THEN LINK=MEBA :BOTO 
62200 ELSE END 

62137 PRINT LN5TAB(7J; 
62140 CS=0:N=0:C=0 

62150 POR P=T+4 TO LINK-2: PK=PEEK (P 
) 

62160 IF PK=143 THEN P=LINK-2;6QT0 
62190 

62165 IF PK=3^ THEN C=(C=0) 
62170 IF C=0 AND PK=32 THEN 62190 
62180 IF PK=137 THEN N=N+1:CS=C^+ 

Í203 OR N) :PK=164 
62185 N=N+1:CS=CS+ÍPK OR Ni 
62 1 90 NEXT P: CH*CH*CS: PRÍ NT "= " J CSt 6 

OTO 62120! 
62200 T=LINK 

62210 LINK=PEEK (T+1 ) ♦256+PEEK (T ) 

62220 LN^PEEK (T+3) #256+PEEK ÍT+2) 
62230 IF LNO62000! THEN 62200 ELSE 

POKE T,0:PÜKE T+1,0 
62999 REM 



El valor MEBA= 32769 lo hemos obtenido de un ordenador de 64K y variará en 
ordenadores con mayor o menor cantidad de memoria. Mira el apartado «Limitaciones», 
que hay más adelante. 
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Tabla de claves 



62000 


= 


964 


62130 


- 


2583 


62185 


- 


2166 


62001 




2389 


62135 




5488 


62190 


— 


2630 


62004 


- 


2398 


62136 




13621 


62200 


— 


638 


62005 




13306 


62137 


— 


724 


62210 




2583 


62006 




1784 


62140 




1217 


62220 




2698 


62010 




5680 


62150 




2731 


62230 




2982 


62015 




0 


62160 




550 








62020 




3269 


62165 




1650 








62100 




0 


62170 




1601 








62120 




638 


62180 




4133 


TOTAL 




78423 



Utilización del verificador 

El mayor problema que hay a la hora de transcribir programas de un libro son los 
errores cometidos al teclearlos. La mayoría se detecun cuando ejecutas el programa con la 
orden RUN y te aparece un mensaje de error (Syntax error). Sólo tienes que listar la linea 
en cuestión y compararla con la del libro. Desafortunadamente, se cometen errores más 
sutiles que no son detectados en la ejecución del programa. El programa se ejecuta, pero 
incorrectamente, y el ordenador no es capaz de delectarlo. 

El programa verificador es un programa especial, que genera una clave para cada 
línea y una clave total del programa. Después del listado de cada programa viene una 
tabla con los valores de las claves de cada sentencia. Sólo necesitas comparar los números 
de la tabla de claves de cada programa con los de la tabla que has obtenido. Si dos 
números son diferentes, comprueba esa linea. 

1. Introduce tu programa de juego. Diseños, por ejemplo. Grábalo en cinta con la 
orden CSAVE"D1SENI". 

Nota: Todos los juegos deben grabarse en cinta mediante la orden CSAVE, que 
almacena los programas en forma comprimida, dejando más espacio en la cinta y 
grabando más rápidamente. 

2. Si es necesario recargar tu programa en memoria usa la orden CLOAD"DISE- 
NI", para el primer programa del libro. En este momento no intentes ejecutar eí 
programa. 

3. Para unir el programa verificador a! final de tu programa utiliza la orden 
MERGE"CAS-.VERIFr. 

4. Cuando lo hayas añadido, teclea RUN 62?)?lí) para activar el programa verifica- 
dor. El programa le preguntará: 

¿Número de linea de comienzo? 

Pulsando la tecla ENTER hará que en este momento el programa verificador 
comience en la primera linea de tu programa de juego. 
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5. Los siguientes mensajes del verificador serán: 

Salida a impresora <]> 
Salida a pantalla <P> 
Teclea <I> o <P> 

Si tecleas una 1, la tabla de salida del verificador la obtendrás por impresora; 
en cambio, si tecleas una P, la salida la obtendrás por pantalla. 

6. El programa verificador te dará la tabla de claves del programa. Para detener la 
ejecución del verificador presiona la tecla <STOP>, para continuar la ejecución 
vuelve a presionar <STOP>. Al finalizar la ejecución, el verificador te dirá: 

¿Borrado del verificador del programa de juego (S o N)? 

Si tecleas una S, el programa verificador se borrará del final de tu programa de 
juego; por tanto, teclea N. 

7. Compara la clave total del programa con las que vienen en el Übro. Si son 
diferentes, es que una linea de tu programa está mal introducida; entonces 
compara las claves de cada sentencia hasta que localices la o las líneas mal 
introducidas y corrígelas. 

Nota: El programa verificador producirá algunas claves erróneas en alguna 
linea de un programa bien introducido (ver «Limitaciones»). 

8. Repite los pasos cuatro a siete hasta que el programa esté correcto. En el 
apartado 4 introduce el número de la primera línea errónea para permitir que el 
verificador obtenga la clave después de esa linea y no desde el principio. 

9. Cuando el programa ejecute satisfactoriamente, introduce una S en el apartado 6 
para borrar el programa verificador del final del programa. 

10. Graba en otra cinta tu programa ya depurado usando la instrucción: 

CSAVE"DISENr^ 

LIMITACIONES 

Verificador 

El verificador no puede detectar a veces dos errores, porque se ha obtenido una tabla 
de claves coincidente con la del Übro, pero que realmente no es correcta. 

1. Si la clave total coincide con la del libro, pero el programa interrumpe su 
ejecución por un error, es que dos líneas han sido transcritas incorrectamente; 
entonces debes comprobar que las claves de todas las sentencias están correctas. 

2. Puede ocurrir que en la transcripción hayamos tecleado un punto (.) por una 
coma (,), o viceversa, y sigan dando una clave correcta para esa línea. Si en una 
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sentencia DATA se cambia un punto (.) por una coma (,), va a ocurrir que dos 
números enteros a un lado y otro de ¡a coma se leerán como un único número 
real y posiblemente genere un mensaje de error en la lectura de un entero, 
visualizándose en la pantalla "Out of Data". Cuando esto ocurra en cualquier otra 
sentencia del programa se visualizará el mensaje de error "Syntax error". 

Las lineas que tengan GOSUB, GOTO o sentencias que implican un salto (por 
ejemplo, después de una sentencia IF... THEN..,} pueden llegar a tener claves diferentes de 
las del libro, incluso estando perfectamente transcritos los programas. 

Este defecto es debido a la cantidad de memoria accesible en el ordenador, y hace que 
las claves sean diferentes de un ordenador a otro. Todos los programas de este libro han 
sido probados en un SONY HIT BIT. 

Te encontrarás a veces que una línea ha sido perfectamente introducida, y que el 
programa ejecuta sin ningún fallo; sin embargo, la clave del verificador a esa línea es 
diferente. 

La causa es el modo que tiene de trabajar el sistema MSX; que depende de la 
cantidad de memoria del ordenador y de las operaciones del editor de líneas. A la hora de 
editar este libro no nos ha sido posible modificar el programa verificador para eliminar 
este defecto. 

Por tanto, si tu juego está perfectamente introducido y no tiene errores de ejecución, 
ignora la tabla de claves de verificador. 

Nota: Es imposible para el verificador eliminar lodos los erioies de transcripción; el 
verificador reduce la aparición de estos errores a un nivel mucho más bajo. 

Desajuste de punteros 

Hay veces en las que un programa no ejecuta bien, incluso habiendo sido comproba- 
do por el verificador y normalmente; en este caso, hay dos posibilidades; 

e Que el programa esté mal —entonces, estribemos diciéndonoslo. 

« Una ejecución previa ha dejado mal posicionados los punteros del sistema, hacien- 
do que el programa en curso dé errores de ejecución, incluso empleando la orden 
NEW. Inicializa siempre el ordenador después de un error en ejecución para evitar 
ese problema. 
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i. 




Dissños 1 




ripo de juego: 

CRAHCOS INTERACTIVOS 



¡Crea estupendos diseños cotí circuios y rectángulos! Este programa te demostrará el 
superpoder gráfico del sistema MSX. Responde a las preguntas y fíjate en la forma de las 

figuras. 

Los diseños de círculos se forman moviendo los círculos horizontaímente, y cambiando 
sus formas y medidas. 

Los rectángulos se generan a partir de una linea que une dos puntos, Pl y P2. 
Pulsa cualquier tecla cuando hayas acabado tu diseño. 



?1 



SUGERENCIAS AL PROGRAMA 



Aquí tienes algunas combinaciones para que empieces: 

CIRCULOS 50, 3, -0.05, 0 

RECTANGULOS 60. - 2, - 2, - 2, - 2 

Con simples sumas dibujarás lineas en vez de rectángulos o incluso puntos aislados. 
Puedes hacer cambios: modifica los números de la linea 200 o los de la linea 100. 



NC Número de círculos. 

!N Incremento en la dirección del eje X. 

VR Variación del radio. 

CR Cambiar el radio. 

ex. CY Coordenadas del centro del circulo, 

R Radio. 

NR Número de rectángulos. 

IX. lY Incrementos en las coordenadas X e Y del punto Pl, 

SX. SY Incrementos en las coordenadas X e Y del punto P2 (han de ser múltiplos 
de IX e lYl, 



O 
O 
O 
O 
O 
O 
O 



5 
10 



11 



12 




13 
14 



Cl = 15 

SCREEN 1 : KEV ÜFF :PRirJT 

^^^DISENIÜS ": PR 

INT „ '^^"i PR 

INT:PRINT : PRINT 

PRINT : PRINT TAB Í4) "CIRCULOS 

" : PRINT: PRINT : PRINT TAB (4 

) "RECTANGULO.S" : PRINT: PRINT: 

PRINT TAB( 4 ) "ELIBE„COLOR" 

POR I = 1 TO 6 : PRINT : NEXT 

: PRINT "Utili2a„las„teclas„d 

el „cursor„para„maver„l a„-f 1 ech 

a" : PRINT "„„Pul sa«' RETURN' „ 

para^seleccionar" 

Kl = 60 : GOSUB 19 

X$ = INKEY$ ; IF X$ =CHR$Í30) 



O 

O 

o 
o 
o 
o 
o 
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THEN IF K=0 THEN 14 ELSE Kl= 
32 rSaSUBl? :K1 =60: K=K-1 : 
BOSUB 19 :BÜTO 14 
IF X$=CHR$(31) THEN IFK=2 THE 
N 14 ELSE K1=32:G0SUB19 :K1= 
60: K=K+Í : GOSUB 19 : BÜTO 14 
IF X$<>CHR$(13) THEN 14 ELSE 
IF K=0 THEN 26 ELSE IF K=l TH 
EN 40 ELSE CLS : INPUT "Tinta^ 
(1-15)"5 Xt :Cl==VAL(Xt) : IF Cl 
<1 OR Cl>15 THEN RUN 
INPUT "Papel ^( 1-15) ";X$: K2=V 
AL(X$): IF((K2<1) OR (K.2>15) ) 
THEN 17 ELSE INPUT "Borde„(l~ 
15) '■; X$ 

K3=VAL(X*): IF K3< 1 OR K3 >15 
THEN PRINT "Fuera„de„rango" : 
BGTD 17 ELSE COLOR C1,K2,K3:G 
OTO 10 

VP0KE6356+96*K,K1: VPOKE 6357 
+96*K, Kl : VPGKE 6358+9ó#K, Kl : R 
ETURN 

CLS : INPUT "Numera„de„circul 
os";NC 

PRINT : INPUT " Incremento„en„ 
1 a^di reccion^del ^eje„X" ; X$ : 
IN = VAL (X$) 

PRINT : INPUT "Var i acion„de„l 
a„razon„„-l, lfE";X$: IFVALÍXí 
)<-l OR VAL{X$)>1 THEN 30 ELS 
E VR = VALÍXt) 

PRINT : INPUT "Cambi ar„el „rad 

io"jCR :GQTO IGO 

CLS : INPUT "Nu.mero^de^rectan 

gulos"!"NR 

PRINT : INPUT " Incremento„en„ 
la^direccion^del„eje^X"; IX : 
PRINT : INPUT " Incrementc^en^l 
a«direccion„del^eje^Y"! lY 
PRINT : INPUT " Incremento„o„d 
ec remen to^P2„„„„„„coordenada- 
X";SX 

PRINT : INPUT "Incremento^o^d 
ecreínenta„P2„„„„„^coQrdenñda~ 
y";SY 
GOTO 200 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



100 



105 
115 

120 



125 
130 
190 



200 



210 



220 
230 
240 



Círculos 

SCREEN 2 :CX = 90 E CY = 90 : 
IF CR<0 THEN R=100 ELSE IF CR 
>0 THEN R=5ELSE R=50 
ñR = 1 

FOR 1=1 Tü NC 

IF CX<0 DR CX>255 DR CY<0 OR 
CYM92 OR R<=0 OR 'AR<-0 THEN 
400 ELSE CIRCLEÍCX,CY),R,C1,0 
,6.28,AR 

CX=CX+rN : AR=AR+VR : R=R+CR 

NEXT 

eOTO 400 



Rectángulos 



SCREEN 2 : Xl=100 :Y1=100 : X2 
=150 : Y2=90 

FOR r=l TO NR ; X1=X1+IX : Yl 
=Y1+IY !X2=X2+SX*rX : Y2=Y2+S 
Y*IY 

LINE ÍX1,Y1)-ÍX2,Y2) ,C1,B 

NEXT 

GOTO 400 



Espera 



400 

410 



IF INK:EY*="" THEN 400 
GOTü 10 
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Tabla de claves 



4 


— 


337 


5 




387 


10 




5541 


11 




6057 


12 


- 


11076 


13 


— 


697 


14 


= 


6340 


15 




5494 


16 




9208 


17 




6659 


18 




6648 


19 




4582 


20 




2599 



25 




5647 


30 




7234 


35 




2956 


40 


= 


2987 


45 


= 


9412 


50 


- 


4985 


55 




5019 


90 




593 


100 




4971 


105 




408 


115 




837 


120 




7932 


125 




2930 



130 




131 


190 


= 


537 


200 


= 


2582 


210 


= 


6152 


220 




1645 


230 




131 


240 




537 


400 




1091 


410 




403 



TQTftL= 134745 





tral 



2 




l ipo de juego: 
lUEGO DE EVASION 



Has conseguido llevar a iii enemigo hasta un vórtice, donde no funciona ningún tipo 
arma. Choca contra las na\es pequeñas, pero ten cuidado con las grandes. 

La batalla lerniina cuando se te escapa una de las naves pequeñas. 

Utiliza las teclas de movimiento de cursor para moverle a h izquierda y a la derecha. 
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SUGERENCIAS AL PROGRAMA 



Intenta un efecto espectacular de explosión; cuando haya un choque, hazlo cambiando 
las lineas 8pp a 83p. 

La linea 2pp controla el espacio vertical entre las naves enemigas y la 215 controla 
la distancia horizontal; modificándolas podrás tener una formación de naves enemigas di- 
ferente. 



Variables del programa 

NP Número de naves pequeñas destruidas. 

DN Distancia para mover todas las naves. 

SA Aparición de un sprite en pantalla. 

VS Ultimo sprite en pantalla. 

NE Sprite que está enfrente (nave enemiga). 

FJ Final de juego. 

DI Nivel de dificultad. 



O 

O 

o 
o 
o 
o 
o 
o 
o 



10 

11 

12 



13 
15 



20 

25 
30 
35 



Inicialización 



SCREEN 1,2 : KEY QFF : COLOR 
15,1,1 : PRINT "„^^„„^„ATAQUE 
^ASTRftL" 

REM EJECUTA EL PROGRAMA 
REM SOPORTE EN CODIGO 
REM MAQUINA 



REM VER APENDICE 
FOR I = 1 TO 32: READ 9:A*=A$ 
+CHR*(D): NEXT: SPRITE* (0) =A$ 
:A*=" " 

TO 32: READ D: A$=A$+ 
NEXT: SPRITE*íl)=At: 



FOR 1=1 
CHR$(Ü.) - 
A*="" 

FOR I = 1 TO B: READ G:A*=At+ 

CHR$(Q) :NEXT;SPRITE$(2)=At 

DEFUSR=6v^O0e ! : DEFUSfil^óOl 18 ! 

:POKE 59996! , 10 

FOR I = 1 TO 5; VPOKE 6914+4* 

I,a:NEXT 
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40 

50 

55 

60 
65 

70 

95 



100 
110 
120 
190 



200 
210 
212 



215 



220 



300 



NE=1: PRINT: PRINT: PRINT: INPUT 
" N I VEL„DE„D I FICULTAD^ ( 1 -4 ) " ; 
DI*:DN=2-»VAL(DI*>+2: IF DN>10 
THEN 40 

FOR I = 1 TO 8: PRINT: NEXT: 
PRINT "PULSA„UNA„TECLA^PARft„E 
MPEZAR" 

D^RNDd): IF INKEY*="" THEN 
55 

SPRITE ON:ON SPRITE GOSUB 800 

FOR I = 1039 TO 1095: VPOKE I 

,0: NEXT: VPOKE 1038,1 

CLS: FOR I = 1 TO 60 : VPOKE 

61 44+1 NT {RND ( 1 ) ^yOO) , 136: NEXT 

TIME=0:PUT SPRITE 0,(120,160) 

,11 




PQKE 59999 í , 7: D=USR (D) 
GOSUB 200 
GOSUB 300 
6QTQ 100 



Nave nueva 



IF T1ME<105-25*DI THEN RETURN 
K=US+1:IF K= 6 THEN K=l 
IF SA AND 2'^K THEN RETURN ELS 
E US=K:TIME=0: IF RNDÍ1X.6 TH 
EN Kl=e: K2=7 ELSE K1=4:K2=3 
VPOKE 6914+4«UB,K1:PUT SPRITE 
US, ÍINT(RND(l)*<l50-20*DI)+40 
+20*01), 0J,K2:SA'(SA) OR 2'"US 
RETURN 



Movimiento de naves 



POKE 59999! ,DN:POKE 59998!, 2: 
FOR 1=1 TO 5:IF SA AND 2"I TH 
EN POKE 59997! , I:D=USR1 (D) : IF 
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VF'EEK (6912+4*1 ) >190 ANDÍSA AN 
ü 2-^11 THEN SA==SA AND <255-2-" I 
):PUT SPRITE 1,(10+30*1,200) 

301 IF VPEEKíó914+4*n=8 THEN FJ= 

1:GOTO 900 ELSE NE^ME+l'.IF NE 
=6 THEN NE=1 

305 NEXT 

310 RETURN 



Choque 



800 SPRITE OFF: Ir VPEEK (¿914+4* 
NE)=4 THEN 900 

810 PUT SPRITE NE, ilO+30*NE,200) : 
SA=SA AND (255-2'^NE):ND=ND+l: 
FLAY "154ínl700slOn54n32" 

820 NE=NE+1:IF NE=6 THEN NE=1 

830 SPRITE ON: RETURN 



Fin de juego 



900 SCREEN 1: PRINT "_„__„„FIN 

^DE^JUEGO":PRINT iPRINTrPRINT 

^^PARA„nTRA„PARTIDA":PR 

1 MT " INSERTA^MONEDA " 

910 POR 1=1 TO 15: PRINT: NEXT : PR 

INT "^„^^^^NAVES„DERRIBADAS"; 
ND.íCHRÍ (11); 

920 FDR 1=1 TD 7: PRINT: NEXT: IF 

FJ=1 THEN PRINT: PRINT 

NAVE^ENEMIGA^ESCñPADA" ELSE P 

RINT ^„DESTRIJIDQ„^PDR„^U 

NA":PRUrT: PRUJT "_^^^^NAVE„ 
DE^ TRANSPORTE i " 

940 IF INKEY$="" THEN END ELSE 

940 



Datos de sprites 



10000 DATA 1,1,1,129,129,199,206, 
206,254,206,255,207, 199, 198, 



O 

o 
o 



10010 



10020 



199, 131 , 128, 128, 128, 130, 130, 
227,115, 115,127,115,255,243, 
227,99,227,194 

DATA 56,56,255,255,255,127,63 
,63,31,30, 14,6,2, 1, 1, 1,28,28, 
255, 255, 255, 254, 252, 252, 248, 
120, 112, 9i, 64, 128, 128, 128 
DATA 129, 195.231j255,24,36, 66 
, 129 



Tabla de claves 



5 




3146 


70 




3625 


800 




2610 


10 




0 


95 




1549 


810 




6496 


11 




0 


100 




1493 


820 




2089 


12 




0 


110 




362' 


830 




551 


13 




0 


120 




207 


900 




7205 


15 




3995 


190 




489 


910 




4256 


20 




3996 


200 




17¿4 


920 




11259 


25 




3500 


210 




1873 


940 




1481 


30 




2746 


21'? 




6354 


10000 




10608 


35 




1951 


215 




7584 


10010 




BB70 


40 




6918 


220 




143 


1 0020 




1733 


50 




4004 


300 




14070 








55 




1893 


301 




5631 


TOTAL= 


137664 


60 




926 


305 




131 








65 




2013 


310 




143 











V 




l ipo de jui'go: 

I LEGO DE TIRO AL BLANCO 



Atrévete a atravesar un corredor espacial Heno de planetas destructores. Tus lasers 
deben incidir en un pequeño punto escondido en el planeta, a no ser que quieras convertirte 

en polvo cósmico. 

Observa el ambiente que crean los espectaculares gráficos en esta rara zona del es- 
pacio. 
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SUGERENCIAS AL PROGRAMA 



La proximidad del planeta está controlada por las líneas del programa 45p a 490; 
seria muy interesante que hicieras alguna modiricación. 

Haz que R se incremente más rápidamente, o cambia el valor de VR para obtener un 
aspecto diferente del planeta. 

También puedes cambiar esta zona del programa para complementar diversos niveles 
de dificultad. 



PL ¿Está el planeta en pantalla? 

R Radio del planeta. 

PX, PY Coordenadas del punto a destruir. 

ex, CY Centro del planeta. 

VR Variación del radio del planeta. 

NP Número de planetas destruidos. 



O 

o 
o 
o 

o 
o 
o 
o 
o 
o 



7 

10 

11 

12 
13 
15 



20 
30 



Inícialízación 



CLSíPRINT "^^^^^^^^^^^PULSñ^U 
Nñ^TECLA" 

IF INKEY$="" THEN D=RND < 1 ) : GO 
TD 2 

COLOR 15,1,1:SCREEN 2,2 

REM EJECUTft EL PROGRAMA 

REM SOPORTE EN CODIGO 

REM MAQUINA 

REM VER APENDICES 

FOR 1=1 TO 32: READ Q: AÍ=A$+ 

CHR$(Q): NEXT: SPRITE* (0) = 

A$ 

DEFUSR=6000O! :PDKE 59996!, 15: 
PDKE 599991,8 

A$="":F0RI=1 TO 8: READ Q: A$= 
A$+CHR$(Q): NEXT: SPR1TE$(1)= 
A$ 



Preparación de pantalla 



100 



LINE (20, 140)-Í235,20) , 15,B:L 
INEtO, 160)-(255,0) , 15,B: LINE 
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ÍO,i92)-(255,160),15,B: LINE 
ÍIO, 190)-Í180, 170) , 15, B 

110 LINE (13,187)-Í177,173),15,B: 

PAINT (50,186) 

120 LINEÍO, 160)-(2O, 1 40) : LINE í 255 

, 160) -(235, 140) : LINE (0,0) -(20 
,20):LINE í255,0)-(235,2íí) 

130 FOR 1=80 TO 180 STEP 10: CIRC 

LE(I,146J,2: PAINT (1,146): N 
EXT: FOR 1= 75 TO 185 STEP 10 
: CIRCLEÍI, 154) ,2: PAINT (I , 
154) :NEXT 

140 DRAW "bm35, 145r2OglO120elObml 
95, 147rief 51 10h5bfn215, I47rl0-f 
51 10h5":PAINT (220,150) 

150 DRAW "bni200, 1 75g5r lOhS" : CIRCL 

EÍ225, 177) , 10:LINEÍ225,167)-Í 
225,187): LINE (21 5, 177) - (235, 
177) 

160 LINE (21, 141 3 -(234, 21) , 15,B:DR 

AW "bm40, 139u4G3f3d4bni215, 139 

u4e3-f3d4": PAINT (42, 138) : PAIN 

T (217,138) 
165 IF NP=0 THEN 170 ELSE DRAW "b 

m35,8":F0R 1=1 TO HP: DRAW "g 

3-f3e3h3br9": NEXT 
170 PRESET(17 ,178): PRESET (17 , 

179): PRESET (17,186): PRESET 

(18, 179) 
190 IF NP O 0 THEN 270 

200 FOR J= 1 TO 3: X 1=120: X2=141 : 

Yl=80: Y2=90 

210 FOR 1=1 TO 10:B$="n"+STR$(I+ 

20): PLAY "m299sl 1 19xb$; " : LIN 
E(X1,Y1)-ÍX2,Y2) , 15,B:X1=X1-I 
:X2=X2+I:Y1=Y1-I:Y2=Y2+I: NEX 
T: LINE (45,130)-(211,24),15, 
B 

220 X 1=120: X2=141:Y1 =00; Y2=90: FOR 

1=1 TO I0:B$="n"+STR$(30-I) :P 
LAY"m2993in9ííb$; ":LINE(Xl,Yl 
)-ÍX2,Y2) ,1,B:X1=^X1-1:X2=X2+I 
:Y1=Y1-I:Y2=Y2+I: NEXT: LINE (45 
, 130)~(211,24) , 1,B:NEXT 

270 PUT SPRITE 0,(120,70)^9 



4 



35 



o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



280 



PX=0:PY=O:STRIS(0)ON:ON STRI6 
SOSUB 900 



300 



305 



310 



315 



320 
330 

340 
390 



400 



410 
420 

44e 



450 
460 




A=PEEK (59996 ! ) : X=VPEEK(6913) : 
Y=VPEEK(6912) : IF X <30 THEN P 
ÜKE 59996 Í,PEEK (59996!) AND 
13 ELSE PÜKE 59996 Í,PEEK( 
59996!) ÜR 2 

IF X>209 THEN PaKE59996 ! , PEEK 

Í59996!) AND 7 ELSE POKE 

59996! , PEEK (59996 1 ) OR 8 

IF Y<30 THEN PÜKE59996 ! , PEEK ( 

59996!) AND 14 ELSE PÜKE 

59996! , PEEK (59996 ! ) OR 1 

IF YMOO THEN P0KE59996 ! , PEEK 

(59996!) AND 11 ELSE POKE 

59996 i, PEEK (5999Ó!) OR 4 

D=USR(D) 

IF PL=0 AND RNDÍlX.l THEN BO 
SUB 400 

IF PL=1 THEN GOSUB 450 
GOTO 300 



Aparición planetoide 



CX=INT (RND ( 1 ) *90+8O) : CY=INT ÍR 

ND ( 1) *3O+60) : R=3: CIRCLE (CX , CY 

),R:PAINT(CX,CY) 

PL=1:PUT SPRITE 1,(170, 176), 1 

PX=CX+INT (RND ( 1 ) *80-40) : PY=CY 

+INTÍRNDíl)*70-35) 

RETURN 



Agrandamiento de planetoide 



IF RND (IX. 2 THEtM R=R+2 
VR=RNDÍ1) /3+.B:CIñ:CLEÍCX,CY) , 
R, 15, 0,6. 28, VR 
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470 
480 
490 



700 



710 



720 
730 



900 

905 
910 

920 

930 

970 



;000 



2010 



VP0KE6917, 160-3*R 
IF VPEEK(6917)<15 
RETURN 



THEN 2000 



Planetoide destruido 



STRIGÍ0) 0FF:FOR 1=1 TO 50 :P 
LAY " 1 40m380s8n24 " : X 1 =1 NT ( RND ( 
1 ) *90-45+CX ) : Y 1 = I NT ( RND í 1 ) *90 
-45+CY ) : X2~INT (RND í 1 ) *200+25) 
: Y2=INT (RND ( 1 ) *1 10+25) 
LINE(X1, Y1)-(X2, Y2) , 1:CIRCLE( 
X1,Y1) , 1;CIRCLE(X2,Y2),2:PAIN 
T(X2, Y2) íNEXT 

PUT SPRITE 1, (100,2OO):PL=0 
NP=NP+1:CLS:G0T0 lOO 



Disparo del láser 



IX=VPEEK í6913)+8: lY^VPEEK ( 
6912)+8:LINE(44, 132) -(IX, lY), 
11:LINE(217, 132)- (IX, I Y) , 11 
PLAY"UOml000sl4n33" 
LINE(44, 132)~(IX,IY) , 1: LINE( 
217, 132)-(IX, lY) , 1 
IF (PX-CX)''^2+(PY-CY)^2>=R*R T 
HEN RETURN 

IF ABS(IX-PX)<15 AND ABSÍIY-P 

YX15 THEN 700 

RETURN 



Fin de juego 



FOR 1=1 TO 10& : PLAY "164m20 
Os 14n23" : X 1=INT (RND ( 1 ) *255) : Y 
1 = INT (RND ( 1 ) *192 í : X2=INT (RND ( 
1)*255) : Y2=INT(RND(1)*192) :LI 
NE(X1,Y1)-(X2,Y2):NEXT 
SCREEN 1: PRINT "-COLIS IONICO 
N„EL„PLANETa I DE ! " : PR I NT: PR I NT 
: PRINT: PRINT"PLANETOIDES„DEST 
RUIDOS: ";NF 



O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 
o 

O 
O 
O 



2099 



O 

o 
o 
o 



10000 



10010 



IF INKEY*="" THEN END ELSE 

2099 



Datos de sprites 



DATA 1,2,4,8,16,32,65,131,131 
,65,32, 16,8,4,2, 1, 128,64,32, 
16,8,4, 130, 193, 193, 130,4,8, 16 
,32,64, 128 

DATA 24,60,126,126,60,24,0,0 



Tabla de claves 



1 




1997 


200 


— 


3128 


480 




1454 


¿. 






210 




13684 


490 




143 


z¡ 




/ i-J 


¿_¿\^ 




1 S155 


~T 1^ 

700 




15021 


10 




0 


27<i 




883 


710 




4038 


11 




0 


280 




2712 


720 




1397 


12 




0 


300 




9391 


730 




1623 


13 




0 


305 




5207 


900 




6442 


15 




3482 


310 




5098 


905 




1301 


20 




2455 


315 




5158 


910 




3119 


30 




4010 


320 




691 


920 




3645 


100 




8141 


330 




2309 


930 




3657 


1 10 




2342 


340 




1155 


970 




143 


120 




5656 


390 




433 


2000 




14040 


130 




6409 


400 




6874 


2010 




6916 


140 




5772 


410 




1554 


2099 




1362 


150 




6368 


420 




5282 


10000 




7039 


160 




6637 


440 




143 


10010 




1398 


165 




4450 


450 




1928 








170 




2646 


460 




3705 


TOTAL= 


225751 


190 




1069 


470 




1115 









Diseño de los sprites 



mm 

Smu m 



I 



PUNTO DE MIRA 



■■■ mim 

lia 



PLANETOIDE 
EN LA PANTALLA DE RADAR 
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O.V.N.I. 



4 





Tipo de juego: 
.tUEGO DE DISPARO 



Da caza a los O.V.N.I.s en tu nave espacial equipada con misiles. Lograrás despegar 
de la Tierra si no chocas con el terreno o con un O.V.N.I. Date prisa, tu tiempo se va 
agotando. 

Utiliza las tedas de movimiento de cursor para subir, bajar y variar tu velocidad; 
para disparar, leclea la barra espaciadora. Para que aparezca tu nave al comienzo, pulsa el 
cursor hacia abajo. 
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SUGERENCIAS AL PROGRAMA 



Fija el tiempo de duración de cada pantalla; TI y T2 se ajustan en la linea 613. 
Si te sientes con ganas, añade otra nueva pantalla a continuación de la segunda; 
pero la tienes que diseñar tú mismo. 



Variables del programa 

DM Disparo de misil. 

TI, T2 Límites de tiempo de las pantallas 1 y 2.' 

NO Número de 0,V.N.].s destruidos. 

FJ Cómo finalizó el juego. 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 




10 

11 

12 
13 
15 
20 



27 
30 



35 



40 



REM EJECUTA EL PROGRAMA 

REM SOPORTE EN CODIGO 

REM MAQUINA 

REM VER APENDICES 

COLOR 15,1,1: SCREEN 2,2 

FOR 1= 1 TO 32 : READ Q : A$= 

A$ + CHRt ÍQ) : NEXT : SPRITE 

$ (0) = A$ : At^"" 

FOR 1= 1 TO 32 : READ Q : A$ 

= A$ + CHR$ ÍQ) : NEXT : SPRI 

TE$ (1) = At : SPRITE$ Í2)= 

CHR$ (255) + CHR$ (255) : FOR 

I = 14432 TO 14464: VPOKE 1,2 

(INT(RND<1)*8) ) 
NEXT 

DRAW "BM1O,30D134R1D4R2D3R3D2 

R4D1R55U1R4U2R3U3R2U4R1U134L2 

IDl 10L1D4L1D3L1D2L1DIL25U1L1U 

2L1U3HU4L1U110L20" 

DRAW " BM99 , .3eD 1 45R2yU6OR30U20 

L30U45R55U20L75": PAINT ílOO, 

100) 

DRAW " BM 1 95 , 30R40D 1 R4D2R3D3R2D 
4R 1 D 1 26L 1 D4L2D3L3D2L4D 1 L4eU 1 L 
4U2L3U3L2U4L 1 U 1 2óR 1 U4R2U3R3U2 
R4Ur' 
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45 



50 



55 
60 



100 



105 



110 

120 
130 
140 



DRAW "BM208,51R14D1RD1R2D2R1D 
98L 1 D2L2D 1 L 1 4U 1 L2U2L 1 U98R 1 U2R 
2U1": PAINT (200,60) 
RUT SPRITE 1, (0,5),e:DEFUSR 
= 60000!: DEFUSRl =60118!: PO 
KE 599961,13 : POKE 59997 !, 1 
: POKE 59998!, 3 : POKE 59999! 
,1 

IF INKEY$="" THEN D^USRKD) : 
GOTO 55 

Tl=60*60: T2= 69*30 : TIMELO 



Pantalla 1 



CLS : COLOR 15,1,1 : DRAW "bm 

0, 170r5dl2r2u3r6'd4r2ul0r3d2r2 

d3r4u6r2d 1 4r2u20r7d 1 5r3u2r2d2 

rlu6r4u.3r7d9r2ulSr5dl0r3u.lr2u 

3r2d2r3u4r2d3r3dl4r2ullr6u2r2 

d5r2u2r2u3r3d7" 

DRAW V3d5r5u.er3dlr3d2r3d6r5u 

9r4d8r2ul2rldl2r2d5r4ulr3ui9r 

5d 13r4d4r2u^r4d2r3d Ir3d5r3u7r 

3d2r2d5rlu8r3u9r5d.3rld4r4u.2r4 

d4r3dlr2dlr3d2r2u6r3d2rld2r4d 

3r2u7r3" 

DRAW "d8r5u3rlu2r4ulr3dlr2d.3r 

4u6r2d3rld5r4ul6r6der2d5r4u3r 

4u2r2d3r2d2r2u6r4d6m255, 192" 

PUT SPRITE 1, (120,70) ,8: PUT 

SPRITE 2, (0,80) , 11 

STRie(O) ON: ON STRIG 6QSUB 

400 

SPRITE ON : ON SPRITE GOSUB 
450 



Control 1 



200 IF VPEEK(6912) >175 THEN POKE 

59996!, 12 ELSE POKE 59996!, 13 

205 D= USR (D) : IF VPEEK(6912)> 

160 AND VPEEK (6912X175 THEN 



di 



CJ=2: 6QT0 89© 
210 POKE 599981,3 : POKE 59999!, 4 

: POKE 59997 í,0 : D =USR1 (D) 
220 60SUB 300 

230 IF DM =1 THEN 60SUB 35© 

240 IF TIME>T1 THEN GOTO 500 

290 GOTO 200 



Movimiento O.V.N.I. 



300 POKE 59997 í,l: POKE 59999!, 7 
: IF DM=0 THEN POKE 599981,3 
: GOTO 310 

305 IF RND (IX. 6 THEN POKE 

59998!, 3 ELSE IF RND(l) < . 52 
THEN POKE 59998 ! , O ELSE POKE 
59998!, 2 

310 D=USR1 (D) 

320 RETURN 



Movimiento del avión 



350 IF VPEEKÍ6921)>238 THEN DM=^0: 

PUT SPRITE 2, (101,200) : RETURN 
360 VPOKE 6921,VPEEK(¿921)+16 

370 RETURN 



Disparo del avión 



400 IF DM=1 OR VPEEK{6913)>243 

THEN RETURN 
405 DM=1 : PUT SPRITE 2,£VPEEK( 

6913)+16,VPEEKÍ6912) í 
410 RETURN 



Choque 



450 



SPRITE OFF : IF DM =© AND ABS 
(VPEEK(6913)-VPEEKÍ6917) )< 17 
THEN CJ= 1 : VPOKE 6914,12 : 



455 



460 



500 

505 
510 



590 



595 



600 

610 

620 
630 
640 

690 



FOR II =1T0 200 : NEXT : VPOK 
E 6918,12: FORU = 1 TO SOO : 
NEXT : GOTO 800 
IF ABS (VPEEK (6916) -VPEEK (6920 
))<8 THEN N0=N0+1: VPOKE 6918, 
12: PUT SPRITE 2, ( lOl , 200) : PLA 
Y "I4m2000sl4nl5": FOR Il=lTa 
500: NEXT: VPOKE 6918,4:DM=0: 
PUT SPRITE 1, (0,70+INT(RND(l) 
*20)): SPRITE ON: RETURN 
DM = 0 : PUT SPRITE 2, (101, 
220): SPRITE ON : RETURN 



Pantalla 2 



COLOR 15, U 1: CLS 
CIRCLE(220,5) ,5, 15,0.6. .5 
FOR 1=1 TO 9: CIRCLE (220, 5+3* 
I), 10+2*1, 15,0,6.28, .5: NEXT 
: FOR 1=1 TO 9 : CIRCLE (220, 
33+3*1) ,28-2*1, 15.0,6,28, .5 : 
NEXT 

FOR 1=1 TO 255 STEP 6 : FOR J 

=0 TO 190 STEP 6 : IF RNDÍlX 

,1 THEN PSET(I,J),15 

NEXT : NEXT :TIME =0: SPRITE 

ON 



Control 2 



D=USRÍD) 

POKE 59998!, 3 : POKE 59999!, 5 
: POKE 59997 !,0: D=USR1 (D> 
GOSUB 300 

IF DM=1THEN GOSUB 350 

IF TIME>T2 THEN CJ=3: GOTO 

800 

GOTO 600 



Fin de juego 



800 



SCREEN 1 : PRINT 



45 



o 
o 
o 
o 
o 
o 
o 
o 
o 



895 

810 
820 
830 

890 



10000 



leeio 



„FIN„DE„JUE60": PRINT : PRINT 
PRINT "HAS„DESTRUIDQ„";NQí "„Q 
.V.N. Ks^^INVASORES"; PRINT : 
PRINT 

IF CJ=1 THEN PRINT "COLISIONL 

CON„UN„Q.V.N. I. " ' 

IF CJ=2 THEN PRINT "CHOCASTE^ 

CQN„LA„SUPERF1C1E! " 

IF CJ=3 THEN PRINT "TIEMPQ„AC 

ABADO: INVASORES": PRINT "REGRE 

S AN„A„SU„PLANET A^.DE„^ OR I SE 

N" 

IF INKEY$="" THEN ENU ELSE 
890 



Datos de sprites 



DATA 0,0,0,224,224,224,240, 
248,255,Í255, 127,31,31,62, 112, 
0,0,0,0,0,0,0.0,50,254,255, 
252,224, 128j0,0,0 
DATA 0,0,0,3,5,15,126,255,240 
, 127,63,7,0,0,^,0.0,0,0, 192, 
64,240,102,255,0,254,252,224, 
O, O, O, O 



Tabla de variables 



10 




0 


60 




2188 


300 




3802 


11 




0 


100 




16663 


305 




6024 


12 




0 


105 




17809 


310 




715 


13 




0 


110 




7830 


320 




143 


15 




723 


120 




1865 


350 




3184 


20 




3995 


130 




1653 


360 




1181 


25 




10470 


140 




1126 


370 




143 


27 




131 


200 




3129 


400 




2235 


30 




8933 


205 




4523 


405 




2582 


35 




3590 


210 




3160 


410 




143 


40 




7700 


220 




207 


450 




9397 


45 




5489 


230 




1035 


455 




14962 


50 




6967 


240 




1599 


460 




2077 


55 




2190 


290 




593 


500 




572 



46 



505 




1 1 /t 


650 




1 y .ij 




— C3d1¿ 


510 






64(3 




1 tí¿'i 




— 1 d.'ÍO 

— i H¿T 














1 ññAA 
1 Wvv 


— 7^d.^ 

— / DHD 


595 




12/j 


800 








— A AT7 

— OOO / 


600 




/Oí 

691 


80o 




4(i>V / 






610 




3162 


810 




2874 


TOTAL= 


220145 


620 




207 


820 




3262 







Diseño de los sprites 






Prueba tu puntería lanzando flechas entre unos globos, intentando no estallarlos. Un 
buen disparo marca 10 puntos; pero ten en cuenta que sólo tienes 15 disparos. 

El juego emplea una subrutina en código máquina para mover la pantalla de derecha 
a izquierda. 
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SUGERENCIAS AL PROGRAMA 

El número de lanzamientos permitidos es arbitrario; puedes cambiarlo dándole otro 
valor a Fl en la linea 125. 

Puedes modificar este juego cambiando K-3 por K-5 en la línea y el 15 por un 
8 en la linea 14^. 



Variables del programa 

PT Puntuación. 

FL Número de llechas lanzadas. 

L Lanzamientos restantes. 

CL Control de lanzamientos. 

CF, FF Columna de flechas; fda de fiechas. 



O 

o 
o 
o 

o 
o 
o 
o 
o 
o 



Inicialización 



5 COLOR 15,7,7 : SCREEN 1,2 : K 

EY OFF 

10 REM EJECUTA PROBRAMA 

11 REM SOPORTE EN CODIGO 

12 REM MAQUINA 

13 REM VER APENDICES 

15 FOR 1=1072 TO 1079:READ Q:VPO 
KE I,Q:VPOKE 1+48, Q: VPOKE 89+ 
I,Q:NEXT:FOR 1=1688 TO 1119:R 
EAD Q:VPOKE I,G:NEXT:FOR 1= 
1128 TO 1135:READ Q:VPOKE 1,0 
:NEXT:FQR I = 128í> TO 1311:READ 
QíVPOKE I,Q:NEXT 

16 FOR 1=1216 TO 1231:READ Q: VPO 
KE I,Q:NEXT 

17 VPOKE 8208,135: VPOKE 8209, 
231: VPOKE 8210,167: VPOKE 
8211,23: VPOKE 8212,231 

20 FOR 1=1 TO 32: READ Q: A*=A$+ 

CHR$(Q) : NEXT : SPRITEÍÍO) = 

A$ : A$ ="" 
25 FOR I =1 TO 32: READ Q: A*=A$ 

+ CHR$(Q) ;NEXT: SPRITE$(1)=A 

$: A$="" 
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30 FOR 1=1 TO 32: READ Q: A$=A*+ 

CHR$(Q) :NEXT: SPRITE* (2)=A$ 

35 DEFUBR0 = ÓOOOO!: POKE 59996! 

,10 : POKE 59999!, 8 

40 DEFUSR2=60350 ! : FOR 1=60350! 

TO 60377! : READ 0 : POKE I,Q 
: NEXT : POKE 663461,33: POKE 
60347 í, 24 : POKE 60348!, 255 : 
POKE 60349! ,24 

55 FOR 1=6441 TO 6454:VP0KE I, 
134: NEXT: FOR 1=6569 TO 6582: V 
POKE I, 134:NEXT:VP0KE 6473, 
134: VPOKE 6486, 134: VPOKE ¿537 
,134: VPOKE 6550, 134: FOR 1=1 T 
O 11:PRINT:NEXT 

56 PRINT TAB(7) CHR$(134) "„„^6L 
OB0S_" CHRÍ(134) 

60 IF INKEY$="" THEN D=RND(1) : 

GOTO 60 



Preparación pantalla 



100 
105 



110 

115 
120 



125 
130 

135 
140 

150 



CLS 

FOR 1=6816 TO 6820 : VPOKE 1, 
23 ; NEXT : FOR I =6842 TO 
6847 : VPOKE I , 23 : NEXT : FO 
R I = 6542 TO 6790 STEP 31 : 
VPOKE I, 162 : NEXT 
FOR 1=6544 TO 6808 STEP 33: VP 
OKE I, 163:NEXT:VP0KE 6821,160 
: VPOKE 6841.161 
FOR 1=6496 TO 6527 : VPOKE I, 
INT(RNÜ(1)*4+136): NEXT 
VPOKE 6592,141: VPOKE 6590, 
141 : VPOKE 6600, 141: VPOKE 
6615,141: VPOKE 6563,141: VPO 
KE 6587, 141 
FL=15: L=FL 

PUT SPRITE 0, ti 17, 140) : PUT 
SPRITE 2, (118, 139) 
GOSUB 1060 

INTERVAL ON: ON INTERVAL= 15 
GOSUB 550 

STRIGÍ0) ON :0N STRIG GOSUB 
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o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



160 
165 



200 

205 

210 

220 
290 



300 



310 



320 



330 



800 

FOR 1=6240 TO 6303 : IF RNDd 

X, 1 THEN VPOKE 1, 134 

NEXT 




D=USRÍD> : IF CL = 0 THEN VPO 
KE 6921, VPEEK('6913) 
K=VPEEK(6913) : IF K<= 69 THEN 
POKE 59996!, 8 ELSE IF K>=165 
THEN PÜKE 59996!, 2 ELSE PDKE 
59996! , 10 

IF RND(1)<.03+FT/2000THEN GOS 
UB 500 

IF CL=-1 THEN eaSUB 300 
BOTO 200 



Movimiento de flecha 



K=VPEEK(6920) : VPOKE 6920, K- 
3: IF K>55 THEN RETURN 



Comprobación de choque 



IF K < 7 THEN PLAY "sl(ii200019 
n55n53": VPOKE 6570+FL-L, 152: 
PT=PT+10: L=L-1: GOSUB 1000: 
CL=0: VPOKE 6920,139: VPOKE 
6914,0 : RETURN 

FF = INT<K/8) : J=6144h-FF*32+ 
CF:K1 = VPEEK<a):IF Kl O 134 
AND Kl 0140 THEN RETURN 
INTER VAL OFF: VPOKE J,153: CL 
= 0: PLAY "1 lOsÍ0m90n20": VPD 
KE 6920,139: VPOKE 6921,VPEEK 
(6913) +1: VPÜKE 6914,0: L=L-1 
: GÜSUB 1000: VPOKE J,32: INT 
ERVAL ON: RETURN 
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Añadir globos 



500 IF RNDÍl) <.5 THEN Kl=^134 ELS 

E Kl:=140 

505 VPOKE 6207+INT(RND<1)*6)*32, 

Kl 

520 RETURN 



Movimiento de pantalla 



550 D=USR2<D) : RETURN 



Disparar flecha 



800 IF CL = 1 THEN RETURN 

802 IF L=0 THEN 900 

805 CL=1 : VPOKE 6914,4 : VPOKE 
6920, 130 

810 CF = INTíVPEEK(6921)/8)+l 
820 RETURN 



Fin de juego 



900 ON INTERVAL= 7 GOSUB 550: INT 

ERVAL ON: POKE 603481,223: FO 
KE 60349! ,26 

905 PUT SPRITE 0,(100,200): PUT S 
PRITE 2,(100,200): CLS: FOR I 
=1 TO 30: VPOKE 6177+ INTÍRND 
íl)*700) , 134: PLAY "164s8(ii500 
n50": NEXT 

910 PR I NT " „^„^„TU^PUNTUAC I QN^ES : 

"íPT 

920 IF INKEY$=""THEN 930 ELSE 920 

930 IF INKEY$="" THEN 930 

990 SCREEN 1: END 



Puntuación 



1000 FOR I = 1 TO 22: PRINT: NEXT: 
PRINT "PUNTOS: ";PT ; TAB<13) 
;"^4□.„FLECHAS:";L ; CHRídl); 

1010 RETURN 



Datos de sprites pequeños 



10000 

10002 
10004 

10006 

10008 
10010 

10012 

10014 
10016 
10018 

10020 
10022 



DATA 

26,5 

DATA 

DATA 

255 

DATA 

255,: 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



120,252,252,252, 120,43, 

0,0,0,49, 123,255,255,255 
O , 0 , 1 3 1 , 207 , 255 , 255 , 255, 

48, 121,251,255,255,255, 
:55 

0,0,0,0, 129,201,255,255 
81, 213, 85, 54, 28, 8, 8j8 
1,2,4,248,0,0,0,0 
128,64,32,31,0,0,0,0 
1,2,4,8, 16,32,64, 128 
128,64,32, 16,8,4,2, 1 
16, 16, 16, 16, 16, 16,56, 16 
146,4,32,9, 129, 1Ó,69,B 



Control de sprites 



10100 DATA 1,6,24,48,96,64,192,128, 
128,64,32, 16,8,4,2, 1, 128,96, 
24, 12,6,2,3, 1, 1,2,4,8, 16,32, 
64, 128 

10110 DATA 1,6,24,48,96, 192, 192,235 
,0,0,0,0,0,0,0,0, 128,96,24, 12 
,6,3,3, 255 , O, 0., O, O, O, 0,0,0 

10120 DATA 1,3,5,1,1,1,1,1,1,1,1,1, 
3,5,3,5,0, 128,64,0,0,0,0,0,0, 
0,0,0, 128,64, 128,64 



O 
O 
O 



Datos de código máquina 



10200 DATA 42,186,235,43,35,205,27, 
235, 43, 205, 44, 235, 35, 237, 91 , 
188,235, 123, 139, 194, 194,235, 
122, 188, 194, 194,235,201 



Tabla de claves 



5 




1244 


140 


- 


2885 


910 


— 


2073 


10 




0 


150 




1496 


920 


— 


1526 


11 


= 


0 


160 


- 


2969 


930 


— 


1111 


12 


— 


0 


165 


= 


131 


990 


— 


407 


13 




0 


200 




2497 


1000 


— 


4954 


15 


- 


11784 


205 




6237 


1010 


— 


143 


16 


- 


2155 


210 


— 


2696 


1 0000 


— 


1645 


17 




2786 


220 




982 


1 0002 




1448 


20 




3995 


290 


- 


593 


10004 




1635 


25 




3996 


300 




2661 


10006 




1850 


30 




3484 


310 




9093 


10008 




1377 


35 




2481 


320 




6554 


10010 




1314 


40 




7478 


330 




10495 


10012 




1028 


55 




9435 


500 




2743 


10014 




1225 


5Ó 




2742 


505 




2334 


10016 




1205 


60 




2297 


520 




143 


10018 




1229 


100 




159 


550 




917 


10020 




1408 


105 




6581 


800 




912 


10022 




1358 


110 




3858 


802 




860 


10100 




6404 


115 




3409 


805 




1392 


10110 




5544 


120 




4706 


810 




1976 


103 20 




4771 


125 




955 


820 




143 


10200 




8518 


130 




1935 


900 




4665 








135 




397 


905 




7875 


TOTAL= 


201299 



Diseño de los sprites 
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Dragster 




Conduce lodo lo láimio puedas, pero cuídate de no estrellarte con los limites de la 
pista o pegar un patinazo sobre el aceite. 
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SUGERENCIAS AL PROGRAMA 



La velocidad está controlada por el valor 9 de la línea 97. Si deseas mayor facilidad, 
puedes ensanchar la pista en la subrutina "Línea nueva". 



Variables del programa 

DI Distancia. 

LN$(I) Linea a imprimir en pantalla. 

1(1), D(I) Coordenadas de la derecha e izquierda de la pista. 

CA Control de la existencia de una mancha de aceite en la pista. 

C Columna de la parte izquierda de la pista. 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 




10 

11 

12 
13 
15 

20 



25 



27 



REM EJECUTA EL PROGRAMA 

REM SOPORTE EN CODIGO 

REM MAQUINA 

REM VER APENDICES . 

SCREEN 1,2:KEY OFF : COLOR 15 

,4,4 

FOR 1=1 TO 32:READ Q;A$ = A$+ 
CHR*ÍG!) iNEXT: SPRITE$ (O) =At:PU 
T SPRITE O, (123,0) , 1 
A*=""iFOR 1=1 TO 8:READ Q:AÍ= 
A*+CHR$ < Q ) : NEXT : SPR ITE$ ( 1 ) =A* 
DEFUSR=60GOG ! : DEFUSR1==601 18 ! : 
POKE 59996! , 10: POKE 59999!, 3; 
POKE 59997 1,0: POKE 599981^0 
FOR 1=60300! TG i0331!:REñD Q 
:POKE I,Q:NEXT:DEFUSR2=6030v3ti 
: POKE 60296 ! , 223: PQK.E 60297 f , 
26: POKE 60298 ! , 0: POKE 60-299 ! , 
24 

PRINT " : F* 

RINT "^„„DA„A„„^*** ***":PR 

INT " í F'RI 

NT "CUALG!UIER^***„D„***":PB;IN 
T " „TECLA^^***„R„***": PRINT 

PRINT "„„^PARA„^^***«6„***":P 
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40 



42 



45 
50 



60 



65 



70 
75 



80 
85 
90 



RINT "^„EMPEZAR„***^S«***":PR 

INT ^„***„T„***":PRI 

NT ***^E«***":PRIN 

T ,„^***„R^***": PRINT 

PRINT "„„^^u.„^„„„***„^„***": 

PRINT w^w***^^„***"í 

PRINT 

PRINT 

PRINT "«^„ww„«,..^„***«„„***"J 
PRINT 

PRINT " ,* 

FOR I =1 TO 5: PRINT 

^^*** .***": NEXT: PRINT 

IF INKEY$<>"» THEN 60 
D=RND(1) :D=USR1 (D) :GOTO 45 



Preparación pantalla 



PRINT :PUT SPRITE 0.(123,176) 
,1:F0R 1 = 1 TO 23:PRÍNT"__ 



^w^-***«w«***" : NEXT 

PRINT CHRt(ll);:FOR 1=1 TO 6: 

PRINT: NEXT: PRINT " +-+" 

: FOR 1 = 1 TO 7: PRINT "^^_! 
NEXT:PRINT"„„„„^+-+": FQ 

R 1 = 1 TO 7 : PRINT " !": 

NEXT 

VPOKE 6440,51: VPOKE 8208,143 
FOR 1=1 TO B00: NEXT ¡VPOKE 
6504, 50: VPOKE 8208, 164: VPOKE 
6440, 32: FOR 1=1 TO 800: NEXT; 
VPOKE 6504, 32: VPOKE 6568,49: 
VPOKE 820S,3ó 

IF INKEY$="" THEN 80 ELSE POK 
E 59999! ,2:PLAY"12s8m40000n2" 
D=USRUD>: IF VPEEK (6912) >25 
THEN 85 

PRINT CHRtdl);: FOR 1 = 1 TO 4 

: LN$ í I ) 

„^ .^^^J'i PRINT LN$(I) ; : 

PRINT 

^«^^";: I (I)=110:D<I)=136iNEXT 



O 
O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 

O 



95 POKE 59999!, 7: C=11:0N SPRITE 

60SUB 900: SPRITE ON 

97 ON INTERVñL=9 SOSUB 300: INTE 
RVAL ON 

98 FOR 1=152 TO 175 STEP 2: VPOK 
E 1,170: VPOKE I+1,B5: NEXT: 
VPGKE 8194,228 



No hacer nada 



100 GOTG 100 



Nueva linea 



200 FOR 1=4 TO 2 STEP-1: LN*(I)==L 

N$(I-1): D(I)=D(I-1): r(l)=rc 
I-l) :NEXT 

210 I=INT(RNDC1)*3-1) : C=C+I: IF 

C<2 THEN C=2 ELSE IF 012 THE 
N C=12 

215 LN$(1)="„_^^™« 

MID$(LN$(1) ,C)="* 

**-^««««-.*** " : l (1) =8*C+28 : D 

(i)=i (i)+4e 

220 IF RND(1)<.05+D 1/1000 AND CA= 

0 THEN PUT SPRITE 1,(I(1)+INT 
<RND(l)*35+5) ,0) , 1:CA=1 

225 IF VPEEK(6916) >190 THEN FUT 3 

PRITE 1, (200,200) :CA=0 

250 RETURN 



Control 



300 D=U5R2ÍD) 

305 GDBUB 200:PR1NT CHR$ ( 1 1 ) ; LNÍ í 

1 ) : PLAY" 1 10fn59000s 10n4" 

310 IF CA=1 THEN VPOKE 6916,VPEEK 

(ó91ó)+8 

320 DI=DI+1 

330 GOBUB 800 



340 
350 



D=:USR(D) 
RETURN 



Comprobación de choque 



800 IF VPEEK (6913X1 (4) OR VPEEK ( 

6913) >DÍ4)THEN 900 
810 RETURN 



Fin de juego 



900 INTERVAL OFF: PLAY"llmó0000sSn 

20":FGR 1=6144 TO Ó303:VPGKE 
I , 32: NEXT: PRINT CHR$ ( 1 1 ) ; "E„S 
„T„R^E„L„L„A„D„0^ ! ^ ! ^ ! " : PRI NT 
:PRINT"DISTANCIA: "JDU "KM" 

905 FOR 1=1 TO 2500: NEXT: SCREEN 

O 

910 IF INKEY$="" THEN END ELSE 

910 



Datos de sprites 



10000 DATA 57,03,59,3,3,3,3.3,3,3. 

247, 247, 255, 243, 240, 240, 156, 
252,220, 192, 192, 192, 192, 192, 
192, 192, 239, 239, 255, 207, 15, 15 

10010 DATA 1 12. 236, 88, 248, 204, 0,íí. y 



Datos de movimiento 



10100 DATA 42,136,235,35,43,205,27, 
235, 17,32,0,25,205,44,235,237 
,82,237,91, 138,235, 123, 189, 
194, 144,235, 122, I885 194, 144, 
235,201 



Tabla de claves 
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un 
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/ Z.CQ 
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OIA 
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1449 


^3 
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10000 




9121 






1 i- DDO 


215 




/9¿.-' 


1 00 1 0 




1462 


42 




3504 


220 




6661 


10100 




10025 


45 




1243 


225 




3063 








50 




2186 


250 




143 


TDTAL= 


1 90040 


60 




3483 


300 




716 








65 




8199 


305 




2930 









Diseño de los sprites 




64 




Las cucarachas 7 




l ipo de juego: 

I L EGO DE EV ASION 



Rigoberto. "el Hambriento" peludo hombre de las montañas, ha llegado al dominio 
de las cucarachas cósmicas en busca de alimento. Conduce a Rigoberto a través de los 
túneles para que llegue hasta la cucaracha reina, y le quite parte de la comida que guarda. 
Cuando io logre, todavía ha de volver a) campamento. 

Haz lodos los viajes que puedas hasta que las cucarachas cósmicas te atrapen. 
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SUGERENCIAS AL PROGRAMA 



En la línea 210 se fija la frecuencia con que se acercan las cucarachas cósmicas a 
Rigoberto; haz los cambios que creas convenientes para aumentar o disminuir la dificultad. 
Si la rapidez de las cucarachas no te emociona, cámbiala en la línea 250. 



Variables del programa 

ce Cucaracha más cercana a Rigoberto. 

DC{I) Dirección de las cucarachas. 

NV Número de viajes completos que ha hecho Rigoberto. 

CO ¿Ha cogido comida Rigoberto? 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



10 

u 

12 
13 
15 



20 
25 

35 



40 

45 
50 



Inicíalizacíón 



CLEAR 700 : COLOR 1,14,14 : S 
CREEN 2,2 

REM EJECUTA PRG6RAMA 
REM SOPORTE EN CODIGO 
REM MAQUINA 
REM VER APENDICES 



32: READ Q: A$ =A$ 
NEXT : SPRITE$(0)= 



FOR 1=1 TO 
+ CHRÍ (Q) : 
A$: Aí="" 

FOR 1=1 TO 32: READ Q: A$= Aí 
+ CHR$(Q): NEXT: FOR 1=1 TO 5 
: SPRITE$(I)=A$: NEXT:At="" 
FOR 1=1 TO 32: READ Q: A$=A$+ 
CHR$(Q): NEXT: SPRITE$ (6) =AÍ 
DEFUSR=60000 ! : DEFUSR:=601 18 ! 
: PDKE 59996! , 15 
PUT SPRITE O, (120, 173) , 1: PUT 
SPRITE 2, (255,72), 12: PUT SPR 
ITE 3, (255,98) , 12: PUT SPRITE 
4, (255, 124) , 12: PUT SPRITE 5, 
(255,150), 12 : PUT SPRITE 6, ( 
255,46) , 1 

FDR 1=1 TO 6: IF RND<1)<.5 TH 
EN DC(I>=1 ELSE DC(I)=3 
NEXT :CC=5 

B$="el-f2el": Aí="": FOR I = 1 
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52 

54 

56 
58 
60 
62 
64 
66 
68 
70 
75 
77 
78 

79 

90 



100 

110 
190 



200 
205 

210 



TG 32 : A$=A$+B$ ; NEXT 

DRAW "bm0,41xa$;j<a$;bm0,44xa$ 

DRAW "bm0,67íía$;xa$;bíiie,7OKa$ 
íxa$;" 

DRAW "bmO,93>ía$;Ka$í" 
DRAW "bm0,96xat;xa$í " 
DRAW "bmO, 119xa$;xa$i " 
DRAW "bmO, 122xa$;xa$; " 
DRAW "bmO, 145xa$!xa$; " 
DRAW "bmO, 148íía$;xa$; " 
DRAW "bmO, 17lKa$;xa$; " 
GOSUB 78 

DRAW "bíiill5,192rl0u2110" 
GOTO 90 

DRAW "bmll5, 14rl0dl0110ul0f 10 
b I 1 Ob 1 Ob 1 8u4r6d4 " ; RETURN 
DRAW"bmll5, 17Sr lOd 101 lOulOf 10 
b 1 1 Oe 1 Ob 1 8u4r6d 4 " : RETURN 
SPRITE ON : GN SPRITE GOSUB 
800 




PDKE 599991,10: D=USRÍD) : 60S 
UB 300 
GOSUB 200 
GOTG 100 



Ajuste dirección de cucarachas 



GOSUB 250 

I = INT(RND(1)*6+1) : IFDC(I)=1 
THEN DC(I)=3 ELSE DC(I)=1 
IF RND(1)<.9-NV/100 THEN 220 
ELSE IF VPEEK(6913+4*CC)<VPEE 
K{6913) THEN DCÍCC)=3 ELSE DC 
(CC)=1 
RETURN 



Movimiento de cucarachas 



250 



PDKE 59999!, 9; FOR I =1 TO ¿s 
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o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



260 



PGKE 59998!, DC(I):POKE 59997! 
, I: D = USRl (D) : NEXT 
RETURN 



300 

305 
320 

325 
330 
335 

340 



345 



350 



800 
810 

820 
821 



Comprobación de movimiento 



K=VPEEKÍÓ912) : CC=INT ( (K-20) / 
26) 

IF K<72 THEN CC=5 
IF K>180 THEN K.l=ll ELSE IF K 
<10 THEN Kl==14 :PEET Kl =15 
POKE 59996 !,K1 

IF K>25 AND K<165 THEN RETURN 

IF VPEEKÍÓ913X115 GR VPEEKÍ 

6913) >125 THEN RETURN 

IF K<=25 THEN IF CO=í THEN RE 

TURN ELSE PLAY " 1 24ínl60s8n60n 

60":CO=1 : DRAW "cl4" : GOSUB 

78 :6GSUB 79 : RETURN 

IF C0=1 THEN PLAY"sem20014On2 



0" : W= NV+1 
1" : GOSUB 79: 
TURN 
RETURN 



CO^O: DRAW "c 
GOSUB 78 : RE 



Fin de juego 



850 



POR 1=1 TO 7 : PLAY "ISOmíJOO 
5l0n64rl0n74": NEXT 

SCREEN 1: PRINT " LAS^CUCAR 

ACHAS^COSM I CAS„_^__„^ATACA 
N^DE^NUEVO ! " 

PRINT:PRINT:PRINT: IF NV>1 THE 
N PRINT "PER0_PEPE„EL„ALPINI 
STA„": PRINT"HA„HECH0^";NV; "V 

lAJES^A^POR _CGMIDA" 

IF NV=1 THEN PRINT V^„^^^„^P 

GBRE^PEPE^": PRINT: PRINT 

„^SGLO^HIZO„UNJv'IAJE" ELEE PR 

INT: PRINT: PRINT "„^„Y„PEPE„N 

G^TIENE^COMIDA! " 

IF INKEY$="" THEN END ELSE 

850 
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o 
o 
o 
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o 
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o 
o 
o 
o 
o 
o 



Datos de spriíes 



10000 DATA 18, 10,5,82,47,21,37,87, 
14,23,39,75, 18, 2,2 j 14^ 144, 161 
,74, 148, 104, 178, 164,234, 1 13, 
232, 228, 208, 64, 64, 64, 112 

10010 DATA 3,0,240,8,4.7, 15,31,31, 
15, 15,4,8,240,0,3, 136, 136, 136 
, 144, 166,255,255,246,246,255, 
255, 166, 144, 136, 136, 136 

10020 DATA 68,34,17,17,17,63,127, 

255,255, 127,63, 17, 17, 17,34,68 
,64,32, 16, 17, 17,250,252,252, 
252,252,250, 17, 17, 16,32,64 



O 

o 
o 
o 
o 
o 



Tabla de claves 
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1169 


64 


10 




0 


66 


11 




0 


68 


12 




0 


70 


13 




0 


75 


15 




3995 


77 


20 




5120 


78 


25 




3484 


79 


30 




2747 


90 


35 




8795 


100 


40 




3711 


110 


45 




588 


190 


50 




3498 


200 


52 




2587 


205 


54 




2595 


210 


56 




1385 


220 


58 




13S8 


250 


60 




1435 


260 


62 




1438 


300 





1442 


305 




1186 




1433 


320 




3455 




1441 


325 




786 




238 


330 




1621 




1522 


335 




2727 




483 


340 




5993 




3573 


345 




5170 




3641 


350 
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926 


800 




2820 




1S37 


810 




4617 




362 


820 




7792 




489 


821 




8567 




410 


850 




1397 




4600 


10000 




8605 




7519 


10010 




8600 




143 


10020 




8785 




4786 










143 


TOTAL= 


153842 




2650 









Diseño de sprites 
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RIGOBERTO, 
«EL HAMBRIENTO» 




CUCARACHA REINA 
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Tes 

de inteligencia 



8 



J + T 



X + ^ V 



V ^ ^ ^ 



▼ ▼ T 



1 11^. 

H r k 1 



V 

p o S I c. 
R T . 



2 = 

9 = 

4 = 

5 = j: 



c 



1 ipo de juego: 
JIEGOMEMORISTICO 



El código secreto está formado por la cotnbinación de cuatro figuras, elegidas de seis 
tipos diferentes. Adivina cl código en menos de ocho intentos. 

Un círculo significa que tienes una figura correcta, pero en una posición equivocada; 
un círculo coloreado te indica que tienes una figura en la posición correcta. 

Las instrucciones van incluidas en el programa. 



1' 



SUGERENCIAS AL PROGRAMA 



Si encuentras algo difícil el juego puedes tener más oportunidades, cambiando la 
rutina "Juego perdido" por otra que dé al jugador más facilidades o se rinda. 

Por otra parte, puedes añadir otra figura, con el objetivo de aumentar el nivel de di- 
ficultad. 



Variables del programa 

CL(I) Código de caracteres de la clave secreta. 

CJ(I) Código de caracteres de la clave propuesta en una baza por el jugador. 

NI Nivel (0-6), 

C Columna (0-3). 
Mensaje. 

FC Número correcto de figuras. 

FA Número de figuras acertadas en forma y posición. 



O 

o 
o 
o 

o 
o 
o 
o 
o 




5 SCREEN 1 : KEY OFF ¡COLOR 1, 

15,15 : PRINT"^ ^^TEST^DE^IN 

TELI CENCIA" 

IG VPOKE 8209,79: VPOKE 8210,207 

: VPOKE 8212,111 : VPOKE 8214 
,159 : FOR 1= 136 TO 184 STEP 
8: FOR J=0 TO 7: REñD Q: VPOK 
E 8*I+J,Í3 : NEXT : NEXT 

15 FOR 1=1 TO 5 : FRIWT : NEXT : 

PRINT "„„UTILIZA„LñS^TECLAS„D 
E^L ' 1 ' „ A„LA„ ' 6 ' ^PARA^PONE 
rIeN„„„LA„PANTALLA^LAS„6^FI6U 

RAS„„^^POSIELES. PRINT "^LA 
TECLA„' DEL' „PUEDE JJSARSE„PñR 
A„CAMB I AR„L A^ULT I Mñ^F I 6U 

2G PRINT: PRINT" ,"CHR$ ( 136) 

^"CHR*(144) "_"CHR*Í152) 
"CHRÍ ( 160) "„„«"CHRÍ í 168) 
CHRÍ <176) 

30 PRINT : PRINT : PRINT "PULSA^ 

UNA^TECLA^PARA^EMPEZAR" 
35 IF INKEY$="" THEN D=RND(1): G 



OTO 35 



Preparación pantalla 



100 CLS : FOR 1=1 TO 6 : PRINT : N 

EXT : PRINT TABÍló) "!„FIG.„! 
"TAB(24) "U=„" CHR*(13Ó); 

105 PRINT TABÍ16)"1ACERT. !":PRINT 
TAB(ló) " ": PRINT TAB< 
16) " !^„„"CHR$(248> "¡PRINT 
TABÍ16) " " TABÍ24)"2„= 
„"CHR$Í144) TAB(16)"i„„„^„„!" 

106 PRINT TABÍló) "í„^ ^! "¡PRINT 

TABÍ16) !„Fie.'„! "TAB(24) "3„= 
„"CHRÍ (152) ; 

110 PRINT TABÍ 16) :'!^^Y^^„!": PRI 

NT TAB(16)"!P0SIC. !"TABÍ24)"4 
^=^"CHRÍ í 160) ; ¡PRINT TAB(16)" 
¡ACERT.!" : PRINT TABa6)"!_ 

^^^^!": PRINT TABÍló)"! "CH 

Rt(249) " TñBÍ24) "5^=„"CHR 
*(168) ; 

115 PRINT TABÍló) " ": PRIN 

T TABÍló) "!„„_^„!"¡ PRINT T 

ABÍló)"!^ .^!"TABÍ24) "6^=^ 

"CHR$(176)CHR$(11); 

140 VPOKE Ó209,84:VPÜKE 6241, 69:V 
PGKE 6273,83: VPGKE Ó305,B4:VP 
OKE 6369, 68: VPOKE 6401,69: VPO 
KE 6465, 73: VPOKE 6497, 78: VPOK 
E 6529,84 

141 VPOKE 6561,69: VPOKE 6593, 76: V 
POKE 6625, 73 ¡VPOKE ¿657,71:VP 
OKE 6689,69: VPOKE 6721, 78: VPO 
KE 6753, 67: VPOKE 6785, 73: VPOK 
E 6817,65 

145 FOR I=6179T0 6755 STEP 96: F 

OR J=I+97 TO 1+103: VPOKE J, 
23 ¡ NEXT: VPOKE 1,20: VPOKE I 
+8,19: VPOKE 1=32,22: VPOKE I 
+64,22: VPOKE 1+40,22: VPOKE 
1+72,22: NEXT 

150 VPOKE 6179,24: VPOKE 6187,25: 
VPOKE 6851,26: VPOKE 6859,27: 



FOR 1=6180 TO 61G6: VPÜKE I, 
23: NEXT 

155 FOR 1= 6197 TO 6261 STEP32: F 

OR J= e TO 6 : VFDKE I+J, 194: 
NEXT: NEXT: FOR 1=1 TO 4' 

160 K>INT(RND(1)*6) : IFTÍfOOl 

THEN CL(I)=K*8+136: T(K)=1 EL 
SE 160 

165 NEXT: M$="LISTO^CUANDO„QUIERA 

S": GOSUB 1000 



Editor 



200 X$=INKEY$: IF XÍOCHRÍ ( 127) A 

ND(X$<"r' OR Xí>"6") THEN 200 

205 IF X$=CHR$(127) THEN IF C=0 T 

HEN 200 ELSE C=C-1:VP0KE 6788 
+2*C-96^L,32:G0T0 200 

210 CJ (C+1)=VAL(X$) *8+128: VFDKE 

678S+2*C-96*L,CJ (C+1) :C=C+1 

215 IF C=4 THEN M$="CnMPROBANDO^T 

U^RESPUESTA": GDSUB 1000: FOR 
1=1 TO 1500: NEXT: GOTO 300 

290 GOTO 200 



Comprobación jugada 



300 FC=0:FA=O:FOR 1=1 TO 4 

305 IF CJ(I)=CL(I) THENFA=FA+1 

310 NEXT: FOR 1=1 TO 4 

315 IF CLÍI)=CJ<1) OR CL(I)=CJ(2 

) OR CLÍI)=CJÍ3) OR CLÍD^CJí 

4) THEN FC=FC+1 
320 NEXT: FC=FC-FA 



Listar resultados 



400 IF FC=0 THEN 415 

410 FOR 1=1 TO FC: VPOKE 6796-96* 

L+I,24B: NEXT 
415 IF FA=0 THEN 425 



420 
425 



430 
435 



500 



505 



510 



515 



520 



900 



910 



920 



FOR 1=1 TO Fñ: VPOKE 6796+FC- 
96*L+I,249: NEXT 

C=0: L=L+1 : M$="_„_^^, 

«w™^^^^^": GDSUB 1000: IF FA 

=4 THEN 900 

IF L=7 THEN 500 

GOTO 200 



Juego perdido 



FOR 1=6197 TO 6261 STEP 32: F 
OR J=0 TO 6: VPOKE I+J,32: NE 
XT: NEXT: FOR J=619B TO 6204: 
VPOKE J,23; NEXT: VP0KE6197, 
24: VPOKE 6205,25: VPOKE ¿229 
,22: VPOKE 6261 , 22: VPOKE 6237 
,22: VPOKE 6269,22 
VPOKE 6293,26: VPGKE 6301,27: 
FOR 1=6294 TO 6300: VPOKE 1,23 
:NEXT 

FOR 1 = 1 TO 4: PLAY"n20sefnl60n 
30": VPOKE 6228+2*I,CL(I) : NE 
XT 

FOR 1=1 TO 2500: NEXT: M$="„P 
ULSA„CUALQUi:ER„iECLñ„PftRft„„^„ 
^^^ÜTRG^INTENTO": GDSUB 

1 000 

IF INKEY$="" THEN 520 ELSE RU 
N 



Juego ganado 



M$="_^„ BUPER!!il": GO 

SUB 1000: PLAY"sl4m2000IlOn3O 

n32n34n36n38n40n42n44mlO00n46 

n48n49n50n51m70On52n53n54n55m 

5OOm500n56n5Bn6O" 

FOR 1=1 TO 3000: MEXT: M$="LD 

„HAS„L0GRADO^EN"+STR*(L)+"„IN 

TENTOS": GOSUB lOOO; BEEP 

FOR 1=1 TO 3000: NEXT:M$="„PU 

L5A^UNA„TECLñ„PARA„JUGAR 

^OTRA^VEZ": GOSUB lOOO : 



5. 
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u 

o 

O 
O 
O 
O 

o 
o 
o 
o 



930 



1000 
1010 



10000 
10002 
10004 

10006 

10008 
10010 

10012 



BEEP 

IF INKEYt="" THEN 930 ELSE RU 
N 



Listas mensaje 



FDR 1=1 TO 22: PRINT: NEXT: PRI 
NT Mt;CHRt(ll); 
RETURN , 



Datos de sprites pequeños 



DATA 255,255,255,255,255,255, 
255,255 

DATA 255,255,126,126,60,60,24 
,24 

DATA 1,3,7,15,31,63,127,255 
DATA 24,24, 24,255, 255, 24>24, 
24 

DATA 146,84,56,16,56,84,146,0 
DATA 108,254,254,254,124,56, 
16,0 

DATA 255,255,255,255,255,255, 
255,255 



Tabla de claves 



5 




3659 


150 




4124 


400 




941 


10 




6786 


155 




4353 


410 




2911 


15 




21816 


160 




5511 


415 




951 


20 




6544 


165 




2839 


420 




3325 


30 




3010 


200 




4410 


425 




4623 


35 




2286 


205 




6073 


430 




977 


100 




3978 


210 




5600 


435 




593 


105 




11666 


215 




5937 


500 




14774 


106 




2440 


290 




593 


505 




556 


110 




12949 


300 




1653 


510 




3738 


115 




5610 


305 




2072 


515 




6696 


140 




6491 


310 




910 


520 




1320 


141 




6566 


315 




5970 


900 




12358 


145 




9819 


320 




1115 


910 




6220 
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920 = 6473 10000 = 1888 10008 = 1469 

930 = 1482 10002 = 1654 lOOlO = 1645 

1000 = 2190 10004 = 1326 10012 - 1888 

1010 ^ 143 10006 = 1515 TDTAL= 236456 




El saltarín 

tíeE río 



2 




I ipo de juego: 

.11 EGO DE SIMULACION 



La vida es dura para la pequeña rana que quiere cruzar el río. Cruza el rio lodas 
las veces que puedas; la puntuación depende del número tota! de movimientos que em- 
plees para cruzarlo cada vez. 

Se emplea una subrulina en código máquina para mover la paníalla. 
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SUGERENCIAS AL PROGRAMA 



La corriente del río se controla por el valor 2p en la línea 15^; para acelerarla, cambia 
el 2P por ip. La densidad de los nenúfares está controlada por los valores fl.65 y p.6p en las 
líneas 125 y 135, respectivamente. 

¿Por qué no tener otros objetos flotantes diferentes en una de las mitades del río? 
Puedes poner hasta un barquito (como un sprite). 



Variables del programa 

D Direcciones de la rana (P ó 2). 

PR Posición de la rana. 

NM Número de movimiento. 

PT Puntuación. 

FJ, CJ Fila y columna del jugador. 

RS Objeto sobre el que está la rana 

LT Controlador de llegada ai tablón. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



Inicialización 



5 REM EJECUTA EL CÜDIBÜ 

6 REM MAQUINA SOPORTE 

7 REM DEL PROGRAMA 

8 REM VER APENDICES 

10 COLOR 4,7,1: SCREEN 1,2: KEY 

OFF 

15 FDR 1=60350! TD Ó0401!: READ 

Q: POKE I,Q: NEXT 

20 POR 1=1072 TO 1079: READ Q: V 

POKE I,Q: NEXT: POR 1=1104 TO 
1135: READ Q: VPOKE I,Q: NEXT 
¡POR 1=1152 TO 1175: READ Q: 
VPOKE I,Q: NEXT: POR 1=1216 
TO 1223: READ Q: VPOKE I,G: N 
EXT 

25 POR 1=1 TD 11: PRINT: NEXT: P 
RINT " „„PULSA^UNñ„TECLA" 

35 PLAY " 1 24m 1 6es8n67n67 " : PR I NT C 

HR* (11) TAB (8) "SALTARIN-DEL-RI 
O": POR 1=1 TO 300: NEXT 

40 VPOKE 6208+INTíRND(l)*60) , 134 



O 
O 
O 
O 
O 
O 
O 
O 
O 



84 



50 



100 

105 

110 

115 

120 
125 



130 
135 



140 
145 

150 

155 



160 



:IF INKEY$="" THEN FOR 1=6148 
TO 6170: VP0K:EI,32: NEXT: FOR 
1=1 TO 300; NEXT: GOTO 35 
DEFUSR=60350 ! : SA=6240 : FA= 
6783: POKE 60346 !, SA MOD 256: 
POKE 60347 ! , INT (SA/256) : POKE 
60348 !,FA MOD 256: POKE 60349! 
, INT(FA/256) 



Preparación pantalla 



CLS: FOR 1=6155 TO ¿207: VPOK 

E 1,141: NEXT: VPOKE 6144,141 

: VPOKE 6145, 141 

FOR 1=6208 TO 6239 : VPOKE I, 

140: NEXT: POR. 1=6784 TO 6815 

: VPOKE I, 139: NEXT 

POR 1=6816 TO 6911 : VPOKE I, 

141: NEXT 

POR 1=6496 TO 6525: J =INT(RN 
D(l)*3+144): VPOKE I,J: NEXT 
GOSUB 1000 

POR 1=6240 TO 6464 STEP 32: P 
OR J=0 TD 31: IP RND(1)<.65 T 
HEN VPOKE I+J, 138 
NEXT: NEXT 

FOR 1=6528 TO 6752 STEP 32: F 
OR J=0 TO 31: IP RNDÍ1X.6 TH 
EN VPOKE I+J, 138 
NEXT: NEXT 

RS=139: PR=6799: VP0KEPR,134: 
CJ = 15 

DN INTER VAL=20 BOSUB 800: INT 
ERVAL ON 

FDR 1=1 TO 5: VPOKE 6176+INT( 
RND(1)*31) , 152: NEXT: POR 1=1 
TO 12: VPDKE 6816+INT (RND ( 1) * 
95), 152: NEXT 

VPOKE 8208,19: VPOKE 8209,55: 
VPOKE 8210,231:VPOKE 8211,179 



Control 



200 



Xt=INKEY$: IP XtO"" THEN GOS 



85 



210 
290 



UB 300 

IF RNDílX.l THEN GQSUB 40© 
GOTO 200 



Leer del teclado 



300 FJ=INT( (PR-Ó144) /32) : CJ~PR- 

32*FJ-6144 
305 K=ñSC(X$)-27: IF' K>0 AND K<5 

THEN PLAY"124ml60s8n67":aN K 

GGTG 310,315,320,325 ELSE RET 

URN 

310 IF CJ=31 THEN RETURN ELSE INT 

ERVñL DFF; VPOKE PR,RS:PR=PR+ 

1: GDTG 340 
315 IF CJ=0 THEN RETURN ELSE INTE 

RVAL GFF: VPOKE PR,RS: PR=PR-1 

: GGTG 340 
320 IF FJ<=2 THEW RETURN ELSE INT 

ERVAL GFF: VPOKE PR,RS: PR=PR* 

32: GOTO 340 
325 IF FJ>=20 THEN RETURN ELSE IN 

TERVAL OFFrVPCKE PR,RS: FR=-PR 

+32 

340 NM=NM+1: RS=VPEEK (PR) : VPOKE 
PR, 134: INTERVAL ON: IF RS==32 
THEN 900 ELSE SOO 



Cambiar pantalla 



400 IF RNDaí<.5 THEN 1=6240 ELSE 

I=Ó52S 

405 VPOKE I+32*(INT(RND(lí*8) ) , 

138: VPGKE 1+32* í INT (RND ( 1 ) *8 
) í ,32 

450 RETURN 



Comprobación de posición 



500 
505 



IF D=2 THEN 520 

IF FJ=2 THEN PT=PT+20O-NM: D= 



2: LT-0: GGSUB lOOO: NM=0: RE 
TURN 

510 IF FJ=11 AND LT=0 THEN LT=1: 

PT=PT+50: GOSUB 1000 
515 RETURN 

520 IF FJ=20 THEN D=0: PT^PT+200- 

NM: LT=0: SOBUB 1000: NM=0: R 
ETURN 

525 SaTG 510 



Movimiento de pantalla 



BOO D=USR(D):IF PR<=Ó783 AND PR>= 

6240 THEN PR-PR-1 ELSE RETURN 

810 IF PR/32=INT(PR/32) THEN 900 

ELSE RETURN 



Fin de juego 



900 CLS: POR 1=1 TO 50; PLAY"I64s 

14m5On50": VPGKE 6176+INT(RND 
(1)*7O0) , 134; NEXT 

910 PRINT CHRStU) ; "PUNTOS: ";PT 

990 END 



Puntuación 



1000 PLñY"12sl0ír.700n44": PRINT "PU 

NTGS:"íPT;CHR*fll); 
1010 RETURN 



Datos del código máquina 



10000 DATA 6,31,42, 186,235,43,35, 

205,27,235, 120,254,31,202,215 
, 235 ,4,43, 205 , 44 , 235 , 35 ,195, 
227,235,6,0, 17,31,0,25,205,44 
.235. 183,237,82,237,91, 188, 



o 
o 
o 
o 
o 
o 
o 
o 



235, 123, 189, 194, 196,235, 122, 
188,194,196,235,201 



Datos de sprites pequeños 



10100 DATAO, 36, 90, 255, 255, 189, 66, 60 
10102 DATA 60,124,254,255,255,255, 
126, 124 

10104 DATA 0,131,207,255,255,255, 
255,255 

10106 DATA 255,255,255,255,255,247, 
97,0 

1 0 1 08 DATA 255 , 255 , 255 , 255, 255 , 255 , 
255,255 

10110 DATA 32,255,255,255,255,255, 
255, 1 1 

10112 DATA 8,255,255,255,255,255, 
255, 1 

10114 DATA 97,251,255,255,255,255, 
255,204 

10116 DATA 56,56,254,254,214,16, 16, 
16 



1 U 
O 
O 
O 
O 

O 
O 
O 

O 



Tabla de claves 



5 




0 


125 




4578 


325 




4277 


6 




0 


130 




320 


340 




5791 


7 




0 


135 




4642 


400 




2613 


8 




0 


140 




320 


405 




4913 


10 




1228 


145 




1071 


450 




143 


15 




2217 


150 




2742 


500 




733 


20 




9678 


155 




7006 


505 




4582 


25 




3079 


160 




2050 


510 




3407 


35 




5601 


200 




1981 


515 




143 


40 




7011 


210 




1587 


520 




4592 


50 




9403 


290 




593 


525 




643 


100 




3158 


300 




3512 


800 




4363 


105 




3798 


305 




6014 


810 




2554 


110 




1966 


310 




4716 


900 




4985 


115 




3923 


315 




4667 


910 




1639 


120 




397 


320 




4937 


990 




129 



88 



1000 = 3594 10104 

1010 = 143 10106 

10000 = 21635 10108 

10100 = 1538 10110 

10102 = 1836 10112 



= 1775 10114 = 1857 
= 1712 10116 =í 1587 
= 1888 

= 1781 TOTAL= 188709 
= 1661 



Diseño de los sprites 




RANA 
(CARACTER) 




89 




Prysba 
de fútbol 



1 




Tipo de juego: 

JUEGO DE TIRO AL BLANCO 



¿Cuánto tiempo puedes maniener e! balón en el aire? 

Intenta que el balón á¿ en los agujeros del techo; son puntos extra. Puedes dar 
cabezazos o paladas; para las paladas usa la barra espadadora. 
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SUGERENCIAS AL PROGRAMA 



Es fácil cambiar la velocidad del balón —mira VB en la linea 813—. Te sugiero que 
pongas algunos obstáculos en la pared para que cuando el balón choque con ellos rebote 
con un ángulo aleatorio. 

Revisa las lineas 700 a 750 para poder golpear el balón con la rodilla o poder dar otros 
ángulos al golpearía. 



Variables del programa 

DR Dirección del balón (0-7). 

PT Puntuación, 

X, Y Coordenadas del balón. 

JX Coordenada X del jugador. 

VB Velocidad del balón. 

GA Golpe en el agujero del techo (1-3). 

GJ Control de golpe del balón sobre el jugador. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



Inicialización 



Iñ REM EJECUTA EL PROGRAMA 

11 REM SOPORTE EN CODIGO MAQUINA 

12 REM VER APENDICES 

15 SCREEN 1,3:KEY DFF: COLOR 15,3 
,3:PRINT " .^^^^ .^FUTBOL" 

20 POR 1=1 TO 32: READ Q: AÍ=A*+ 

CHRÍÍQ): NEXT: SPRITEÍ (0) =A$: 
A*="" 

25 POR 1=1 TO 32: READ Q: A*=A$+ 

CHR$ (Q) : NEXT: SPRITE* ( 1 ) =At : A$ 

30 POR 1=1 TO 32: READ Q: A$=A*+ 

CHRt(Q): NEXT: SPRITE* (2) =A*: 
A$=" " 

35 POR 1=1 TO 8: READ Q:A$=AÍ+CHR 

$(Q):NEXT:SPRITE*(3)=A$ 

40 DEPUSR=6000O ! : DEPUSR1=601 18 I : 

POKE 599961, 10 

45 POR 1 = 1 TO 20:PRINT:NEXT-.PRIN 

T"„„„„^^«»PULSA„UNA„TECLA";PO 
Ke"59997! ,3:P0KE 59998!, 3: POK 
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47 
50 

55 



60 



61 

65 

70 
75 

80 
85 

95 



100 

105 



E 59999!, 1:PUT SPRITE 0,(120, 
100),1:PUT SPRITE 3,(0,29) 
POR 1=1088 TO 1103: READ Q:POK 
E 1,Q:NEXT 

D=USR1(D):IP VPEEK (6925) =255 
THEN POKE 59998!, 1 ELSE IF VP 
EEK(6925)=1 THEN POKE 59998!, 
3 

IF INKEY*="" THEN SO 



Preparación pantalla 



CLS:K=134:VP0KE 1072, 170:VPOK 
E 1073, 127: VPOKE 1074, 254: VPO 
KE 1075, 127: VPOKE 1076, 254: VP 
OKE 1077, 127: VPOKE 1078, 254: V 
POKE 1079,85: POR 1=6144 TO 
6175: VPOKE I,K: NEXT 
VPOKE 6147,32: VPOKE 6148,32: 
VPOKE 6159,32: VPOKE 6160,32: 
VPOKE 6172,32: VPOKE 6173,32 
POR 1=6176 TO 6880 STEP 32: VP 
OKE I,K;VPOKE 1+31 , K: NEXT: POR 
1=6849 TO 6879:VP0KE I,K:NEXT 
POR 1=6893 TO 6911: VPOKE I,K: 
NEXT 

VPOKE 8208, 195: GOSUB 100O:PUT 
SPRITE 0, (120, 142) :PUT SPRITE 
3, (11, 11) 

DR=6:VB=7:STRIG(0) ON:ON STRI 
G GOSUB 800 

K-6B17:P0R 1=1 TO 1 1 : VPOKE K, 
29: VPOKE K+ 16, 29: K=K-31 : NEXT: 
POR 1=6465 TO 6494: VPOKE 1,23 
: VPOKE 1-96, 2o: NEXT 
SPRITE ON :0N SPRITE G0SU5 

700 




POKE 59999! ,6:D=USR{I» 

IP PEEK (59997 ! )=0 THEN POKE 

6914,0 



i. 
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110 
120 
190 



GOSUB 200 
GOSUB 300 
GÜTO 100 



Movimiento del balón 



200 IF DR>3 THEN SPRITE OFF:GOTO 

210:ELSE POKE 59999 !, VB: POKE 
59997! ,3:P0KE 59998 !, DR: D=USR 
1 tD) :GQTQ 220 - 

210 POKE 59997! ,3:PGKE 59999!, VB- 

l:Kl=DR-4:K2=(DR-3) MOD 4:P0K 
E 59998! ,K1: SPRITE ON :D=USRl 
(D):PÜKE 5999B! ,K2:D=USR1 (D) 

220 X=VPEEKÍ6925) : Y=VPEEK (6924) : 

RETURN 



Comprobación de posición 



300 IF Y<8 OR Y>192 THEN GJ=0:PLA 

Y "19sl4ml900n30":GOTO 400 

305 IF X<8 OR X>248 THEN PLAY "sB 

m20019n2O":GQTO 450 

310 IF X>237 THEN 6J=0:PLAY "ín300 

0sB19n35":GOTO 500 

315 IF Y>16B THEN 900 

320 RETURN 



Choque con el lecho 



400 IF X>19 AND X<35 THEN 6A=1: 

GDTÜ 420 ELSE IF X>115 AND X< 
131 THEN 6ñ=2:G0T0 420 ELSE I 
F X>219 AND X-Í235 THEN GA=3:G 
OTO 420 

410 IF DR=7 THEN DR=6: K=2 ELSE 

IF DR=0 THEN DR=2: K=-2 ELSE 
IF DR=4 THEN DR=5:K=-2 ELSE 
RETURN 

415 VPOKE 6925, VPEEK< ¿925 )+K: 

RETURN 



420 



425 



450 



455 
460 



500 



505 
510 



700 



705 



710 
720 



725 



750 



PLAY "ml000B14n33":FOR 1=1 TG 
1O00:NEXT:IF 6A=1 OR GA^3 THE 
N PT=PT+50 ELSE PT=PT+100 
GOSUB 1000:PUT SPRITE 3,(9,11 
) :DR=¿: RETURN 



Choque con la pared izquierda 



IF DR=4 THEN DR=7sK=-2 ELSE I 
F DR=1 THEN DR=3:H;=-2 ELSE DR 
=6:K=-2 

VPOKE 6924, VFEEK (6924) +K 
RETURN 



Choque con la pared derecha 



IF DR=7 THEN DR^4;K=~2 ELSE I 
F DR=6 THEN DR=5:K=2 ELSE DR= 
1 : K=-2 

VPOKE 6924, VPEEKC6924)+K 
RETURN 



Cabezazo/patada a la pelota 



IF GJ=1 THEN RETURN ELSE BPRI 
TE OFF: PT=PT-H : GJ=1; GOSUB 
1000: JX=VPEEK<6913) : IF YM60 
THEN 720 

IF DR=2 THEN IF RND ( l X . 5 THE 
N DR=4 ELSE DR=7 ELBE IF DR=Ó 
THEN DR^O ELSE IF DR=5 THEN D 
R=0 ELBE IF DR=^l THEN DR=7 EL 
BE IF DR=3 THEN DR=4 
GOTO 750 

IF VPEEK(é914) = 8 THEN IF X< 
170 THEN DR=4:GQT0 750 ELSE D 
R=1:GDT0 7 

IF VPEEK(6914) = 4 THEN IF X> 
162 THEN DR=7:G0T0 750 ELBE D 
R=3:G0TO 750 
SPRITE ON: RETURN 
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Intento de patada 



800 JX'=VPEEK(6913) : IF JX+4<X THEN 

VPOKE 6914,4 ELSE VPOKE 6914, 

e 

810 RETURN 



Fin de juego 



900 STRIG(O) OFF:SPRITE OFF:CLS:P 

RINT "„„^^^^„„„„„„„„FIN„DE„JU 
EGO" : PRINT: PRINT: PRINT 
910 PRINT "TUS„PUNTOS„; ";PT 

990 IF INKEY*<>"" THEN END ELSE 

990 



Puntuación 



1000 FOR 1=1 TO 23: PRINT; NEXT:PRIN 

T "PUNTOS: ";PT;CHR$(11) ; 
1010 RETURN 



Datos de sprites 



10000 DATA 3,5,7,3,15,31,27,19,19, 
23,6,6,6,6,6, 14, 128,64, 192, 
128,224,240, 176, 144, 144,208, 
192, 192, 192, 192, 192, 224 

10010 DATA 3,2,3, 1,3,7, 13,9, 11, 11,3 
,1,1,1,1,1,192,120,192,128, 
224 , 240, 220 , 1 92, 224, 224, 240 , 
152, 142,4,0, 128 

10020 DATA 1,0,1,0,7,63,3,1,1,3,7, 
12,56, 16,0,0,224, 160,224, 192, 
240,216,204,216, 192,224,220, 
224, 192,64,64, 192 

10030 DATA 48,120,120,48,0,0,0,0 



O 
O 



Datos de sprites pequeños 



10100 DATA 1,2,4,8,16,32,64,128 
10102 DATA 0,0,0,0,0,0,0,255 



O 
O 



Tabla de claves 



10 


= 


0 


110 


= 


362 


705 




10306 


11 




0 


120 


= 


207 


710 


= 


629 


12 


= 


0 


190 


= 


489 


720 


= 


4836 


15 


= 


2750 


200 


= 


6967 


725 


= 


4826 


20 




3995 


210 




9136 


750 


- 


551 


25 


= 


3996 


220 




2109 


800 


= 


3216 


30 




3997 


300 


— 


4073 


810 




143 


35 


= 


3497 


305 


— 


3496 


900 




4394 


40 


= 


2746 


310 


= 


3442 


910 




1383 


45 




9460 


315 




1045 


990 




1777 


47 




1851 


320 




143 


1000 




2998 


50 




5648 


400 




9460 


1010 




143 


55 




997 


410 




6676 


6159 




1343 


60 




8939 


415 




1443 


10000 




8271 


61 




2677 


420 




6520 


10010 




7438 


65 




5073 


425 




1829 


10020 




7798 


70 




1944 


450 




5567 


10030 




1273 


75 




2903 


455 




1221 


10100 




1205 


80 




2515 


460 




143 


10102 




1006 


85 




6994 


500 




5303 








95 




1114 


505 




1221 


TOTAL= 


215212 


100 




1500 


510 




143 








105 




1907 


700 




6178 









9 



97 




98 




Harrier 



11 




Misión: Lanzar cargas de profundidad desde tu avión hacia el submarino sin que explote 
ninguna mina. Aterriza en el portaaviones para reponer combustible. El juego íérmina 
cuando se acabe el combustible de! portaaviones. 

Control : 

Cursor ARRIBA Sube o despega. 

Cursor ABAJO Baja. 

Cursor IZQUIERDA Aierriza. 

Cursor DERECHA Acelera. 

Barra espadadora Lanza cargas de profundidad. 
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SUGERENCIAS AL PROGRAMA 



Si encuentras difícil aterrizar, en la línea 522 tienes los requisitos para un buen ate- 
rrizaje. 

Añadiendo más minas se hará más difícil lanzar las cargas de profundidad sin des- 
truirte a ti mismo. 

Variables del programa 

CP Control de lanzamiento de cargas de profundidad. 

CR Combustible que resta en tu avión. 

TC Combustible total que queda. 

AT Control de aterrizaje. 

PA Control de parada. 

RE Control de recarga de combustible. 

CH Número de sprítes que han chocado con el portaaviones. 

SD Número de submarinos destruidos. 

EM Explosión de una mina. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



Inicialización 



10 
11 

12 
13 
15 

20 



25 



30 



35 



40 



REM EJECUTA EL PROGRAMA 

REM SOPORTE EN CODIGO 

REM MftQUINA 

REM VER APENDICES 

COLOR 15,4,7 : SCREEN 1,2 ; K 

EY OFF 

FOR 1=1 TO 32 : READ Q : A$=A 
$+CHR${Q) : NEXT : SPRITE$(0) 
=A$ : PUT SPRITE 0,(120,35) : 
A$="" 

FOR 1=1 TO 32 : READ Q : A$=A 
$+CHR$íG) : NEXT : SPRITEÍd) 
=A$ : Aí="" 

FOR 1=1 TO 8 : READ Q : A$=A$ 
+CHR$tD) : NEXT : SPRITE$(2)= 
A* :-SPRITE$(3)=A$ : A$="" 
FOR 1=1 TO 32 : READ Q ¡ A$=A 
$+CHR$(ÍI!) : NEXT s SPRITE$Í4) 
=A$ : A*="" 

FOR 1=1 TO 32 : READ Q : A*=A 
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45 



50 



55 



60 



65 



70 



72 

75 
80 
85 

90 



$+CHRt(Q) : NEXT :SPRITE$(5)= 
A$ : A$="" 

FOR 1=1 TO 8 : READ Q : A$=A$ 
+CHRÍ(Q) : NEXT : SPRITE$(6)= 
A$ 

FOR 1=1088 TO 1095 : READ Q : 
VPOKE I,Q : NEXT : FOR 1=1152 
TO 1175 : READ D : VPOKE 1,Q 
¡ NEXT ; DEFUSR0=6O000! : DEF 
USR1=60118! : POKE 59996 !, 15 
FOR 1=1 TO 10 : PRINT : NEXT 
: pRINT"^Da_a^una„tecl a„para„ 
empezar" 

POR 1=1 TO 11 : D=RNDÍ1) : IF 
INKEYÍO"" THEN 70 ELSE READ 
A$ : VPOPÍE 6153+1, ASC(A$) : R 
EAD N ; B$="n"+STR$(N) : PLAY 
"slm2551 15kB*; " : FOR T'l TO 
500 : NEXT : NEXT 
FOR 1=1 TO 500 : NEXT : FOR I 
=6154 TO 6164 : VPOKE 1,32 : 
NEXT : RESTORE 10200 : GOTO 
60 



Preparación pantalla 



CLS : FOR 1=6496 TO 6527 : VP 
OKE I, INT(RND(1)*3+144) : NEX 
T : FOR 1=6848 TO 6879 : VPOK 
E 1,23 s NEXT : PUT SPRITE O, 
ÍO, 16) 

FOR 1=6848 TO 6879 : VPOKE I, 
23 : NEXT : PUT SPRITE O, ÍO, 
16) ,8 

FOR 1=1 TO 22 : PRINT : NEXT 
: PRINT"C0ME:»;CHR$(11) ; 
PUT SPRITE 4, (0,75), 14 : PUT 
SPRITE 1, (0, 140) , 1 
K1=INT<RND(1)*150+4O) : PUT S 
PRITE 2, (Kl,100),l : K2=INT(R 
NDÍl)*5.0+30) : PUT SPRITE 3, ( 
K1+K2, 100) , 1 

STRIGÍO) OW : ON STRI6 GOSUB 
900 : SPRITE ON : ON SPRITE G 
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95 



100 



105 

110 

115 
120 
130 

190 



200 
205 

215 

220 
240 



250 



255 



OSUB 500 

ÜN INTERVAL=180 GQSUB 1000 ¡ 
INTERVAL üN : TC=30 : CR=16 
GüSUB 1100 : CH=100 



Control 



D=USR(D) : IF F'EEK Í59997 ! ) =0 
THEN IF PEEK(5999B!)=1 THEN ft 
T=l 

K1=VPEEK<6912) : IF Kl>75 AND 
KK190 THEN 700 
GÜSUB 200 
GOSUB 250 

IF CP=1 THEM GQSUB 300 

IF AT=1 THEN POKE 59996í,i3 E 

LSE POKE 59996! , 15 

GOTO 100 



Movimiento del Harrier 



IF PA=1 AND VPEEK(¿912) >65 TH 
EN RETURN 

IF RE=1 AND VPEEK(6912)<65 TH 
EN RE=0 : PA=0 : AT=0 : SPRIT 
E QN 

IF AT=1 AND RE=0 THEN K1^2 : 
K2=l : GQTü 240 
Kl=3 : K2=4 

POKE 59997 i , O : POKE 5999B í , K 
1 : POKE 59999 !,K2 : D=USR1(D 
) : RETURN 



Movimiento del submarino 



K1=RND(1) : IF KK.5 THEN K2= 
3 ELSE IF KK. 75 THEN K2=0 EL 
SE K2=2 

IF VPEEKÍ69Í6XH0 THEN K2=2 
ELSE IF VPEEKÍ691Ó) >160 THEN 
K2=0 
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O 
O 
O 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



260 
265 



300 

305 
310 



500 



510 
515 
520 

522 
525 



550 



POKE 59997 '. , 1 : POKE 59998 ! , K 
2 : POKE 59999!, 2 : D=USR1 ÍD) 

RETURN 



Movimiento de las cargas de profundidad 



POKE 59997 ! , 6 



POKE 59993Í ,2 
: POKE 59999!, 3 : D=USR1(D) 
IF VPEEK(-6936) >175 THEN CP=0 
: PUT SPRITE 6,(100,200) 
RETURN 




SPRITE ÜFF : IF CP=1 AND (VPE 
EK(6912) < 65 ÜR VPEEKí69i2)> 
190 ÜR VPEEK(6913)>lfc) THEN I 
F VPEEKC 6936X90 THEN CH=6 : 
GOTÜ 550 ELSE IF VPEEK.Í6936X 
110 THEN 650 ELSE 600 
IF AT=0 AND CH=0 THEN CH=0 : 
GÜTÜ 550 

IF AT=1 THEN PA=1 ; AT=0 ELSE 

IF PA=1 THEN RETURN 

AT=0 : RE=1 : TC=TC-1¿+CR : I 

F TL<0 THEN 700 ELSE IF TOO 

THEN CR=16 : GOSUB UOO 

IF VPEEK(6913)< >5 AND VPEEK ( 

¿913) <>6 THEN CH=0 : GOTO 550 

SPRITE ON : RETURN 



Portaaviones hundido 



VPOKE 6914+CH*4 , 20 : GÜSUB 
1200 : FOR Kl=l TO 200 : NEXT 
: VPOKE 6930,20 : GOSUB 1200 
: FOR Kl=l Tü lOOO : NEXT : G 
OTO 2000 



O 
O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 

o 
o 
o 
o 



105 



600 



640 



650 



660 



700 



710 



900 
905 



910 



Submarino bombardeado 



SD=SD+1 : VPGKE 6919,15 : VPQ 
KE 691S,2 : GOSUB 1200 : FOR 
14=1 TG 1000 : NEXT : PUT SPR 
ITE 6,(100,200) : PUT SPRITE 
1, (0, 140) , i : VPOKE 69ie,4 
SPRITE ON:RETURN 



Explosión de mina 



VPOKE 6938,20: VPOKE 6939,15; 
GOSUB 1200: FOR Kl=l TO 1000 
: hJEXT : EM=1 
GOTO 2000 



Harrier tocado 



VPOKE 6912,70 : yF0KE6914 , 20: 
GOSUB 1200' : FOR Kl=l TO lOOO 
: NEXT 
GGTO 2000 



Disparo de carga de profundidad 



IF CP=1 THEN RETURN 

CP=1 : I1=VFEEK(6912) : I2=VP 

EEK(6913) : IF I2<8 THEN CP=0 

: RETURNELSE PUT SPRITE 6,(12 

-8,11) , 1 

RETURN 



Depósito de combustible 



1000 CR=CR~1 : VPOKE 6888+CR,32 
1010 IF CR<0 THEN 700 ELSE RETURN 



1100 

1120 



1200 
1210 



2000 

2010 

2015 
2020 



2025 



2030 



Í035 



2100 



Recarga de combustible 



FGR 13=6888 TG 6903 : VPOKE I 

3, 136 : NEXT 

RETURN 



Explosión 



PLñY"13m200s8n27' 
RETURN 



Fin de juego 



SCREEN 1 :PRINT"_^„^^^^^FIN 

DE^JUEGO" 

PRINT ; PRINT 

PRlNT"Numero_De„Subs„Destrui d 
os: ";SD : PRINT : PRINT 

IF CH=0 THEN FRINT"^ FUE UN 

^MñUñTERRIZAJE" : PRINT: PRIN 
T"^«„„HAS„SIDO„DESTRUIDOÍ í !" 
: GOTO 2100 

IF CH=6 THEN PRINT"_„„^HAS^T 
I FÍADO^UNñ^CARGA^^^^^^^^DE^PR 
OFUNDIDAD^SOERE" : PRINT"^^^„ 

^^^TU^PROPIO^BARCQ" : GOTo""" 
2100 

IF EM=1 THEN PRINT "EXPLOSION 
^DE„MINA„NUCLEAR:„! ' ' " ; GHTO 
2100 

IF TC<0 GR CR<0 THEN PRIMT"^ 
«SIN^COMBUSTIBLE^! ! ! " : GQTo" 

2100 

IF INKEY$<>"" THEN END ELSE 

2100 



Datos de sprites 



10000 DATA 0,0,0,0,0, 192,224,241, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



1001© 



10020 
10030 



10040 



10050 



10100 

10102 
10104 
101(56 



10200 



255, 127, 127,31,63, 124,0,0,0,0 
,0,0,0,0, 112,236,242,255,238, 
216,0,0,0,0 

DATA 0,0,0,0,0.2,7,6,7,127, 
255, 255, 127, 0,0, O, 0,0, 0,0, O, O 
, 128, 128, 192,254,255,255,254, 
0,0,0 

DATA 0,90,60,126,126,60,90,0 
DATA 0,0,0,0,192,192,240,240, 
240, 255, 255,255, 255, 255, 255, 
255,0,0,0,0,0,0,0,0,0,255,254 
,252,248,240,224, 192 
DATA 0,4,66,136,2,64,18,42,10 
, 165,43, 144,40, 1,64, 18, 128, 16 
,4,32, 1,72,33, 146,204,22,200, 
92,64,9,0,32 

DATA 40,56,16,16,56,56,56,16 



Datos de sprites pequeños 



DATA 255,171,213,171,213, 
213,255 

DATA 0,0,4,154,97,0,0,0 
DATA 0,0,0,13,210,32,0,0 
DATA 0,0,8,181,66,0,0,0 



171, 



Datos de pantalla inicial 



DATA B,30,E,32,A,35, " ",34, H, 
35, A, 34, R, 33, R, 32, 1,33, E, 34, R 
,35 



Tabla de claves 



10 




0 


30 




4903 


65 




3890 


11 




0 


35 




3995 


70 




6993 


12 




0 


40 




3996 


72 




2731 


13 




0 


45 




3500 


75 




2558 


15 




1236 


50 




7907 


80 




1794 


20 




5019 


55 




4252 


85 




7394 


25 




3870 


60 




11277 


90 




2947 



108 



95 


— 


5391 


510 


— 


2468 


2000 




1901 


100 


— 


4656 


515 




2917 


2010 




350 


105 


— 


2960 


520 




5605 


2015 


= 


3623 


1 10 




362 


522 




3850 


2020 


SI 


6838 


115 


— 


410 


525 


=: 


551 


2025 




9130 


120 


— 


986 


550 




6284 


2030 


= 


3938 


130 


= 


2469 


600 




6961 


2035 


= 


3940 


190 


— 


489 


640 


= 


551 


2100 


= 


1613 


200 


— 


2072 


650 




3212 


10000 




7050 


205 


— 


3902 


660 




603 


10010 


= 


6280 


215 


— 


3110 


700 




2669 


10020 


— 


1411 


220 




850 


710 


— 


603 


10030 


= 


8226 


240 


— 


3703 


900 


= 


916 


10040 


= 


7419 


250 


= 


4849 


905 


= 


5859 


10050 


= 


1411 


255 




3840 


910 


- 


143 


10100 




1873 


260 


= 


3303 


1000 




1893 


10102 


= 


1110 


265 




143 


1010 


— 


1361 


10104 




1156 


300 




3164 


1100 




2188 


10106 




1112 


305 




2930 


1120 




143 


10200 




3662 


310 




143 


1200 




1130 








500 




11364 


1210 




143 


TQTAL= 


261451 
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[nvasíón 



12 




Tipo de juego: 
JLíEGO DE DISPARO 



Flotas de naves-robot suicidas están atacando tu nave de caza. Debes usar tu cañón 
giratorio para destruir a los robots antes de que lleguen a tu nave. Algunos robots desapa- 
recen de repente; ten cuidado, son peores, pero vajen más puntos. 

Usa la tecla I para girar el cañón y la barra espadadora para disparar. 
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SUGERENCIAS AL PROGRAMA 



Te darás cuenta de que la velocidad de las bombas y de los robots aumenta según 
juegas. Este efecto lo produce la línea 155, que fija la distancia en que se mueve cada sprite. 
Intenta cambiar la expresión que se "pokea" en la dirección 59999, para dar más rapidez al 
juego. 



Variables del programa 

NG, PT Número de giros; puntos. 

D{I) Dirección del camino I. 

C Número de camino (1-4). 

DI Control de disparo. 

MS, S(I) Movimiento de sprite; control del sprite I. 

TD Todos los robots destruidos. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



5 

10 

11 

12 
15 



20 
25 

30 

35 
40 
50 




TIME=0 

REM EJECUTA EL PROGRAMA 

REM EN CODieO MAQUIMA 

REM VER APENDICES 

COLOR 15,4,7:SCREEN 1,2:CLS:K 

EY OFF: PRÍNT"^^INVASiaN„„„DE 

„„^ROBOTS„„„ " : PR I NT : PR I NT : PRI 

NT:PRINT 

FOR 1=1 TO S:READ Q:A$=A$+CHR 
$ (Q) : NEXT: SPRITEt (0) =At: A$=" " 
FOR 1=1 Tü 32:READ Q:A$=A*+CH 
R$(Q) :NEXT:SPRITE$(l)=At:SPRI 
TE$ Í2) =AÍ : SPR ITE$ (3) =At: SPRIT 
E$(4)=At:ft*=" " 



FOR 1=1 
CHR$(QÍ 
A$=" " 

FOR 1=1 
CHR$(Q) 



TO 32: READ Q: A$=A$+ 
NEXT: SPRITEÍ(5)=A$: 



READ Q: A$=A$+ 
SPRITEÍ(6)=A* 



TO 32: 
NEXT: 
DEFUSR=¿0118! 

D(l)=2:D(2)=3:D(3)=0:Dí4)=l 
INPUT "_PULSA^' RETURN' „PARA^ 
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60 



JUGAR"; X$ 
C=l 



100 
105 



110 
115 

120 
125 



150 



155 
160 

170 
175 



200 

210 

220 

230 

ON 

235 



Preparación pantalla 



CLSrCÜLÜR 11, ¿,¿ 

FÜR 1=6158 TD 6894 STEP 52: F 

QR J=e TO 2: VPQKE I+J,255:NE 

XTiNEXT 

FOR I=¿4Ó4 TO 6559:VP0KE I, 
255: NEXT 

FOR 1=6445 TO 6449:VP0KE 1,28 
: NEXT: FOR 1=6464 TO 6528 STEP 
32 : VPQKE 1+13, 28: VPOKE 1+17 
,28: NEXT 

FOR 1=6573 TO 6577 : VPOKE I, 
28: NEXT 

PUT SPRITE 5, ai6,83),l:G0SUB 

1000 



Nueva jugada 



TD=0: NG=NG+1: PUT SPRITE 1,( 
116,0),3:PUT SPRITE 2, Í0,83), 
1:PLÍT SPRITE 3, < 1 16, 192) , 8: PU 
T SPRITE 4, (255,83) , 1 
POKE 59999! , INT(NG/3)+l 
60SUB 35O:STRIB(0) ON:QW STRI 
G GOSUB 320 

SPRITE 0N:0N SPRITE GOSUB 500 
FOR 1=1 TO 4:SÍI)=1:NEXT 



Control 



IF DI=1 THEN 220 
GOSUB 300 

IF DI=1 THEN GOSUB 400 
SPRITE OFF: BOBUB 450: SPRITE 

ST$=STR$ ( TI ME ) : DG=VAL ÍRIGHTí ( 



O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



24e 

245 
250 
260 
265 



3ee 

305 
310 
320 
322 
325 

330 

335 

340 

345 



350 

360 
365 
370 
375 
380 



ST$, 1) ) 

IF D6>1 OR RND(1)<.95 THEN 
200 

IF RND(1)<.5 THEN PUT SPRITE 
2, (116,2OO):S(2)=0:EOTO 260 
TD=1:F0R 1=1 TO 4: IF £(!)=! 
THEN TD=0 

TD=1:F0R 1=1 TO 4: IF S(I)=1 T 
HEN TD=0 
NEXT: GOTO 200 



Leer del teclado 



KP$=INKEY$: IF K:P$<>"í" AND KF 
$<>"!" THEN RETURN 
C=C+1: IF C=5 THEN C=l 
6GSUB 350: RETURN 
IF DI=1 THEN RETURN 
PLAY"119m380sl0n37" 
DI=íl:ON C GOTO 330,335,340, 
345 

PUT SPRITE O, (120,70), 1: 
RETURN 

PUT SPRITE 0,(163,87),!: 
RETURN 

PUT SPRITE O, (120, 103) ,1: 
RETURN 

PUT SPRITE O, (137,87) , 1: 
RETURN 



Visualizar ei búnker 



VPOKE 6447,28:VP0KE 6509, 28: V 
POKE 6575, 2B: VPOKE 6513,28 
ON C GOTO 365,370,375,380 
VPOKE 6447, 255: RETURN 
VPOKE 6509, 255: RETURN 
VPOKE 6575,255: RETURN 
VPOKE 6513,255: RETURN 
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Disparar bomba 



400 TP=PEEKÍ59999! ) :POKE 59997!, O 

:PÜKE 59999;, 2 
405 POKE 59998 !,C-l:D=USRíD>: POKE 

59999! ,TP 
410 ON C GOTO 415,420,425,430 

415 IF VPEEK(6912)<5 THEN DI=0:PU 

T SPRITE O, (200,200) : RETURN E 

LSE RETURN 
420 IF VPEEK(6913)<5 THEN DI=0: P 

UT SPRITE 0, (200,200) :RETURN 

ELSE RETURN 
425 IF VPEEK(6912) >1B7 THEN DI=Q: 

PUT SPRITE O, (200,200) : RETURN 

ELSE RETURN 
430 IF VPEEK(6913) >250 THEN DI=0: 

PUT SPRITE O, (200,200) : RETURN 

ELSE RETURN 



lovimientos del enemigo 



450 MS=MS+1:IF MS=5 THEN MS=1 

455 IF TD=1 THEN 150 

460 IF S(MS)=0 THEN 450 

465 POKE 59997 !,MS: POKE 59998 !,D( 

MS) :D=USR(D) 
470 ON MS 6QT0 475,480,485,490 

475 IF VPEEKÍ6916) >62 THEN 600 EL 

SE RETURN 

480 IF VPEEK(6921) >95 THEN 600 EL 

SE RETURN 

485 IF VPEEKÍ 6924X111 THEN 600 E 

LSE RETURN 
490 IF VPEEK (6929X145 THEN 600 E 

LSE RETURN 



Nave bombardeada 



500 



STRIG(O) OFF: SPRITE OFF ; DI= 



115 



510 

520 
530 

535 

540 



600 
630 



640 



1000 



10000 

10010 

10020 
10030 



O: IF C=l GR C=3 THEN PT=PT+ 
20:ELSE PT=PT+100 
GOSUB 1O00:S(C)=O:PUT SPRITE 
C, (10,200) :VPOKE 6914,24 
PLAY "t255164r64m7Osl0n26n2" 
POR T=l TO 150: NEXT: VPÜKE 
6914,0:PUT SPRITE 0,(200,200) 
TD=1: FOR 1=1 TO 4: IF EÍI)=1 
THEN TD =0 

NEXT:STRIG(0) OH: SPRITE ON: 
RETURN 



Fin de juego 



STRIG(O) ÜFF 

CLSrSCREEN 1: PRINT ._FI 

N„DE„JUEGO" : PRINT: PRINT: PRINT 

: PR INT ; PR I NT " ^TUS^PUNTÜS 

^-"jPT 
END 



Puntuación 



FOR 1=1 Tü 22:PRINT: NEXT: PR 
INT "PUNTOS"; PTíCHRtd 1) ; : 
RETURN 



Datos de sprites 



DATA 24,24,60,255,255,60,24, 
24 

DATA 167,48,96,96,224,193,226 

,254,231, 199, 195,224,96,96,48 

,16,8, 12,6,6,7, 131,71, 127,231 

,227,195,7,3,3,6,4 

DATA 1,1,1,3,15,12,27,251,251 

,27, 12, 15,3, 1, 1, 1, 128, 128, 128 

, 192,240,48,216,223,223,216, 

48,240, 192, 128, 128, 128 

DATA 128,4,64,0,144,5,40,134, 



O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 



o 



67, 177,68, 16,63,0, 128, 16,4,0, 
129, 16,6, 129, 146,34,25, 162, 16 
,65,0,8,0, 129 



Tabla de claves 



5 


— 


461 


235 




2960 


430 




3o / Q 


10 




0 


240 




2330 


450 




21¿.7 


11 


— 


0 


245 




i553 


455 




962 


12 


— 


0 


250 




¿648 


460 




1 1 ÜT 


15 




4904 


260 




¿648 


465 




284V 


20 




401 1 






"TO A 


470 




1914 


25 




6939 






"7TTD 


A 

475 




1 /uo 


30 




3996 






1 "T^T 

í íZ}/ 


A 

480 




1 / T / 


35 




3484 


"T 1 O 

•Jflv 






* 48j 






40 




972 


3¿0 




Olí 
Til 


490 




1 Q7R 
1 O /D 


45 


— 


2088 


32j1 






500 






50 


— 


2534 


325 




1733 


510 




¿abo 


60 




325 


~7 ~7 

330 




1088 


520 




1 T 1 1 


100 




582 


33 b 




1081 


530 




^OO i 


105 




3564 


340 




1121 


535 




2648 


110 


— 


1874 


TAC 

34 b 




13 / o 


CA llk 

54y 




1513 


1 15 




4969 






¿ 1 






766 


120 




1777 


360 




1345 


630 




5044 


125 




1395 


365 




821 


640 




129 


150 




6193 


370 




885 


1000 




3189 


155 




1888 


375 




949 


10000 




1519 


160 




1945 


380 




889 


10010 




8179 


170 




1176 


400 




3024 


10020 




8480 


175 




1499 


405 




2802 


10030 




7606 


200 




1012 


410 




1557 








210 




207 


415 




3483 


TOTAL= 


185927 


220 




1089 


420 




3484 








230 




1278 


425 




3611 









o 
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Diseño de los sprites 
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Cocodrilo 



13 




TIEMPO LIMITE 



Ayuda al cocodrilo hambriento a comer, guiándolo en dirección a las plantas, los peces 
exóticos y los deliciosos peces amarillos para que coma. 

Se tiene que comer todos los peces amarillos y situarse en la parte de arriba de la 
pantalla dentro del tiempo limite. 

No te olvides de que los cocodrilos no pueden estar toda la vida bajo el agua; se te puede 
ahogar el pobrecito. Estáte atento a la parte superior de la pantalla, donde se te indica la 
medida de aire que le queda. 
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SUGERENCIAS AL PROGRAMA 



En la linea 35 se almacena un número en la dirección 59999 para controlar la velo- 
cidad del cocodrilo; cámbialo a 2 para aumentar e! nivel de diUcullad, y a 4 para dis- 
minuirlo. 

¿Qué pasaría si el cocodrilo tuviera más grandes los pulmones? Si aumentas el nu- 
mero 2^ de la línea 165, el cocodrilo podrá permanecer más tiempo debajo del agua. 



Variables de! programa 

Al Aire inicial, 

TC Tiempo total consumido. 

AR Aire que queda. 

PN Modelo de números de! sprite p. 

R, PT Número de inmersiones; puntuación, 

RA Control de retoma de aire. 

NC Número de cocodrilos. 

TR Tiempo que resta para llegar a! otro lado. 



O 

o 
o 
o 
o 
o 
o 
o 
o 




IP) REM EJECUTA EL PROGRAMA SOPOR 

TE 

11 REM EN CODIGO MAQUINA 

12 REM VER APENDICES 

15 KEY OFF: COLOR 1,4,4:SCREEN 1 

,2: PRINT ^^COCGDRILO 

Si ":PRINT:PRINT:PRINT:PRINT 

20 FOR 1=1 TO 32: READ Q; Af=A$+ 

CHRtíQ): NEXT: SPRI TE$ (O) =A$: 
A*=" " 

25 FOR 1=1 TD 8: READ'Q: At=A$+C 

HR$(Q): NEXT: FOR 1=1 TO 4: S 
PRITE$ ( I) =A$ : NEXT: A$=" " 

30 FOR 1=1 TO 32: READ G: AS=A$+ 

CHRtíQ) : NEXT: SPRITE$Í5)=A$ 

35 NC=3: DEFUSR = 6^000'.: POKE 

59996!, 13: POKE 59999 ! , 3: SPRI T 
E ON :0N SPRITE GOSUB 500 

40 FOR 1=60350! TO 60401!: READ 

Q: POKE IjQ: NEXT: DEFUSRl = 
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45 

50 
55 



100 

105 

110 



115 

120 

125 
140 
145 



155 
160 
165 



170 
180 



60350!: POKE 603461,96: POKE 
60347!, 24: POKE 60348!, 255: P 
OKE 603491,26 

FOR 1=1088 TO 1280 STEP 64: FQ 
R J=0 TO 7:READ Q:VPOKE I+J,Q 
: NEXT: NEXT 

PRINT"«PULSA„UNA„TECLA„PARA^E 
MPEZAR" 

IF INKEY$="" THEN 55 



Nueva inmersión 



CLS: IF NC=0 THEN 600 

FOR 1=6240 TO 6271:VP0KE 1,23 

: NEXT 

FOR 1=6274 TO 6832 STEP 32: F 
OR J=0 TO 29:K=10*<TIME/10-IN 
T(TIME/10) ) : IF RNDÍ1X.95 THE 
N 140 

IF Kíl THEN VPOKE I+J,144:G0T 
O 140 

IF K<6 THEN VPOKE I+J,136:G0T 
O 140 

VPOKE I+J,152 
NEXT: NEXT 

K=K*3+80: PÜT SPRITE 1,í30,K-í- 
30),11:PUT SPRITE 2, (80,K+77) 
,11:PUT SPRITE 3, ( 120, K+20) , 
llsPUT SPRITE 4, í200,K+60) , 11 
R=R+1 

PUT SPRITE 0, (0,80) , 1 
TIME=0: AI=20-R: TG==0: GOSUB 
1000:PR1NT CHR$(11) ¡PRINT "ftl 
RE":60SUB 1100 

ON INTERVAL=15 GOSUB 650: INTE 
RVAL ON 

VPOKE 8209,36: VPOKE 82 10, 20: V 
POKE 8211, 148: VPOKE 8212,164 



Control 



200 



D=USR(D) : SPRITE ON: IF PN=0 TH 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



205 

210 
211 

220 



225 
230 
235 



23¿ 



;40 



250 

260 
270 

280 



300 
310 



EN PN=20 ELSE PN=0 

BOSUB 1000:VPOKE Ó914,PM:IF A 

R=AI THEN 700 

IF TR<1 THEN 600 

PRINT TR 

IF VPEEKÍ6912X20 THEN GÜSUB 
400:PÜKE 599961 , 12: BOTO 230 E 
LSE IF VPEEK (6912X185 THEN P 
ÜKE 59961,13 ELSE PÜKE 599961 

RA=0 

IF VPEEK (6913X253 THEN 240 
IF VPEEK(6916)=2e0 AND VPEEK< 
Ó920)=200 AND VPEEK Í6924) ==200 
AND VPEEK ÍÓ92B) =200 THEN IOS 
ELSE CLS: INTERVAL ÜFF : FÜR I 
=0 Tü 5: PUT BPRITE 1,(30*1, 
200) : NEXT: PRINT"Ha5„perdido^v 
ari os^peces 1 ! " : EL=1 
IF EL=1 THEN PRINT: PRIMT"^COC 
DDRIL0S„VIVD5:„";NC-1: EL=0: 
FOR T=l TO 2500:NEXT:NC=NC-1; 
(?QTO 100 

Kl = INT((VPEEKÍ6913)+14)/e)+ 
32*(INTÍ (VPEEK (6912) +4) /8) )+ 
6144: IF VPEEKÍK1)=32 THEN 200 
IF VPEEK (Kl) =152 THEN GOBUB 
450 

IF VPEEK ÍKI) =144 THEN 550 
IF VPEEK (Kl) =136 THEN BOSUB 
300 

BGTÜ 200 



Comer algas 



INTERVAL ÜFF:PT=PT+10:VPOKE K 
1,32:GQSUB 1000 
INTERVAL DN:RETURN 



Toma de aire del cocodrilo 



400 

410 



IF Rft=l THEN 420 
TB=TG+INT(TIME/60) :TIME=0:GOS 
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420 



450 

455 
460 



500 



510 
512 

520 
522 

530 
532 

540 
542 
549 



550 



555 



UB 100:RA=1 
RETURN 



Comer peces exóticos 



INTERVAL OFF:PT=PT+20: VPÜKE K 
1,32: GÜSUB lOOO 
PLAY " 1 54m 1200S 1 0n54 " 
INTERVAL ÜN: RETURN 



Comer peces amarillos 



SPRITE ÜFF: I1=VPEEK (6913) : IF 

IK39 THEN 510 ELSE IF IK89 

THEN 520 ELSE IF IK129 THEN 

530 ELSE GOTO 540 

IF Il>22 THEN RETURN 

PUT SPRITE 1,(30,200): GOTO 

549 

IF Il>72 THEN RETURN 

PUT SPRITE 2,(80,200): GOTO 

549 

IF I1M12 THEN RETURN 

PUT SPRITE 3,(120,200): GOTQ 

549 

IF I1M92 THEN RETURN 
PUT SPRITE 4,(200,200) 
PT=PT+ 1 50 : PLAY " 1 24m 1 60s8n27n2 
7":G0SUB 10O0:RETURN 



Choque con una mina 



INTERVAL 0FF:F0RI=1 TD 4:CGLG 
R 1, 15, 15:PLAY"m8000sll2n30": 
FOR J=l TD 150: NEXT: COLOR 1 
,4,4: FOR J=l TO 150: NEXT: 
NEXT 

CLS: FOR 1=0 TO 5: PUT SPRITE I 
, ( 30* 1 , 200 ) : NEX T : PR I NT " El „c oc 
□dri lo„choco„con„íninas" :PRINT 
"Ha„suf rido^indi gestión lili" 



560 PRINT:PRINT:PRINT:PRINT"„CüCQ 
DRILDS„VIV0S:„";NC-1:F0R J=1 
Tü 2500: NEXT 

580 NC=NC-1: GOTD 100 



600 



610 

620 



650 



700 

705 
710 
720 



1000 
1010 

1020 



Fin de juego 



SCREEN1:PRINT"„„^_„„„„„FIN^D 
ENJUEGO" :PRINT-: PRINT:PRINT: 
PRINT 

PR I NT "^„„^Tus„pLintas^son^ " ; PT 
IF INKEY$="" THEN END ELSE 
620 



Animación del juego 



D=USR1(D): RETURN 



Cocodrilo ahogado 



CLS:INTERVAL OFFiFOR 1=0 TO 5 
:PUT SPRITE I , (30*1 , 200) : NEXT 
: PR I NT " COCODR I LÜ^AHOGADO 

PRINT: PRINT: PRINT: PRINT V^COC 
ÜDRILÜS^VIVOS: ; NC-1 
PLAY"llm590O0s8n2": FOR T=l T 
□ 2500: NEXT 
NC=NC~i: GGTG 100 



Tiempo/puntos 



AR=INT(TIME/60) : VPGKE 6183+AR 
,32 

TR=50-TG-AR: PRINT CHR4(ll)j"P 

unt0s„";pt;tab(19) ; "tiempo: „" 
;tr 

RETURN 



Recarga de aire 



1100 FDR 1=6183 TO 6183+AI: VPOKE 
1,160: NEXT: RETURN 



Datos de sprites 



DATA 0,0,0,0,192,96,96,119,63 
,63,31, 15,24,48,48,0,0,0,0,0, 
0, 1,2, 180,248,255,240,224,96, 
192,96,48 

DATA 128,196,110,63,63,110, 
196, 128 

DATA 0,0,0,128,1.92,192,96,119 
,63,63,31, 15,24,48,97,97,0,0, 
0,0,0,0, 16, 184,255,255,240, 
224,96, 192, 128, 128 



Datos de animación 



10100 DATA6, 31 , 42. 186, 235, 43, 35, 205 
, 27, 235, 120, 254, 31 , 202, 215, 
235 , 4 , 43 , 205 , 44 , 235 , 35 , 1 95 , 
227,235,6,0, 17,31,0,25,205,44 
,235, 183,237,82,237,91, 168, 
235, 123, 189, 194, 196,235, 122, 
188, 194, 196,235,201 



Datos de sprites pequeños 



DATA 146,84,185,82,181,24,16, 
40 

DATA 0,90,60,126,126,60,90,0 
DATA 3,6,108,176,240,108,6,3 
DATA 255,255,255,255,255,255, 
255,255 



10000 

10010 
10020 



10200 

10202 
10204 
10206 



Tabla de claves 



10 




0 


1 1 




0 


i2 




0 


ID 






TA 










DIO/ 


Tfít 












40 




-JA 


45 




oD/6 


50 




2550 


55 




1002 


100 




1101 


105 






1 10 






1 15 




'7 1 Tñ 
i / *3 


IZO 




<¿ i 


Ixj 




ñ1 4 


1 






i4D 




/ tTO 


IDO 




A7T 






7R0 


1 /. cr 
lau 






170 




2B76 


180 




1936 


200 




3166 


205 




2202 


210 




911 



1 1 




T1 i 
1 H 






"7 1 












1 77A 












f £.1 1 












1 77R 






1 í7a 


















"T 1 DO 


■ii y 




1 oy*! 






o AQ 
TOO 


H 1 y 










1 






o X DO 






1 Tñi 


4Aí) 




1 ■';í)4 




_ 




■=¡1 0 




905 


ij 1 i£. 




1 3AA 






OA1 

TO 1 


522 




1422 


530 




1001 


532 




1466 


540 




1081 


542 




1016 



549 = 3288 

550 = 7556 
555 = 9168 
560 = 4386 
580 = 1374 
600 = 2903 
610 = 2181 
620 = 1416 
650 = 916 
700 = 6512 
705 = 2983 
710 = 2465 
720 = 1374 
1000 = 2267 
1010 = 4868 
1020 ^ 143 
1100 = 2334 
10000 = 7116 
10010 = 1790 
10020 = 7901 
10100 = 21635 
10200 = 1579 
10202 = 1411 
10204 = 1403 
10206 = 1888 

TOTAL= 254509 
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Eres Uíi saboteador y tu misión es detener un convoy de camiones enemigos. Se trata 
de colocar linas bombas de relojería bajo la carretera, moviendo tu barca bajo un río 
subterráneo. 

El problema es que tus camiones (pintados de rojo) deben poder pasar, y no puedes 
controlar la mecha de tus bombas. 

Para poner una bomba, o arreglar la carretera destruida, pulsa la barra espaciadora. 
pero ten cuidado con los camiones que caen. 
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SUGERENCIAS AL PROGRAMA 



Los camiones que caen parecerían más grandes sí salpicaran mucho e hicieran bas- 
tante ruido al golpear el agua. Estos efectos se podrían incluir en la rutina "Caída de ca- 
mión" en las líneas 55^-58^. 



Variables del programa 



UC Ultimo camión. 

P Puntuación. 

DM Distancia máxima entre camiones. 

C(I) Colores de los sprites. 

NA, NF Número aleatorio; semilla del número aleatorio. 

LM, CM Longitud mecha; control mecha. 

ve Velocidad camiones. 

CJ Columna jugador. 

PB Posición bomba. 

CP Control posición bomba. 

UM Ultimo camión móvil. 



O 

o 
o 
o 
o 
o 
o 
o 



10 
11 

12 
15 



20 
25 

35 
40 




REM EJECUTA EL PROGRAMA 

REM EN CODIGO MAQUINA 

REM VER APENDICES 

COLOR 1,7,7:SCREEN lj2:KEY OF 

F:PRINT"„ ^^^^^^^^„CONVOY„": 

FOR 1=1 TO 9:PRINT:NEXT 

1=1 TO 32: READ Q: A$=A$+ 
NEXT: SPRITEÍ (0í=AÍ: 



FOR 

CHR$(Q) 
A$=" " 

FOR 1=1 TD 32: 
CHR$ÍQ) 



READ 0: A$=A$+ 
NEXT: FOR 1= 1 TO 4 
:SPRITE$(I)=A$:NEXT 
PUT SPRITE 1, (20,50), 1: RUT SP 
RITE 2, (80,50) ,8: PUT SPRITE 3 
, (160,50), 1:PUT SPRITE 4,(220 
,50) ,8 

bEFUSR0=ó0000 ! : DEFUSR 1 =60 118! 

:POKE 59996! , 10 

PRINT "^PÜLSA„UNA„TECLA„PARA„E 
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50 
60 
70 



100 

105 

110 

120 



130 
140 

150 

160 



200 

205 



207 
210 
212 



MPEZAR„" 

IF INKEYÍ-"" THEN 50 
VC=2 

FOR 1=1088 TO 1095 STEP 2: VP 
OKE 1,170: VPOKE I+1,B5: NEXT 
: FOR 1=1152 TO 1159: VPOKE I 
,255; NEXT: VPQKE 8209,231: V 
POKE 8210,71 



Preparación pantalla 



23: P'RINT: MEXT: P 
rCHRÍdl);: 60SUB 



CLS: FOR 1=6336 TO 6463: VPOK 

E 1,136: NEXT: FOR 1=6592 TO 

6815:VP0KE I,144:^4EXT 

FOR 1=6816 TO 6847:VPCKE 1,23 

:NEXT 

FOR 1=1 TO 
RINT"Botnb: 

1000 

PUT SPRITE 1, (10,200): PUT SPR 
ITE 2, (40,200) :PUT SPRITE 3, ( 
70,200): PUT SPRITE 4,(100,200 
) :UC=1:DM=25:G0SUB 400 
PUT SPRITE 0, (120,95) , 11 
STRIB(0) ON : STRIB GGSUB 
950 

NF = 10001*(TIME/60-INT(TIME/ 
60) ) 

ON SPRITE GOSUB 750 




POlíE 599991,5: D=USR0(D) 
GOSUB 900: IF CM=0 AND NA<.2 T 
HEN GOSUB 900iLM=INT(NAíf5+l) ; 
CM=1:TIME=0 
GOSUB 1100 

LT=LT+1:IF LT=5 THEN LT=1 
IF VPEEK(69l2+4*-LT)=200 THEN 
210 ELSE POKE 59997 !, LT: POKE 
59998! , 1:P0KE 59999 !, VC: D=USR 
1 ( D ) : I F ( VPEEK í 69 1 3+4*LT ) < 2+ VC 
)AND C(LT)=1 THEN 800 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



213 
215 

220 
225 
230 
240 



350 

352 
355 

360 

3¿5 

380 

385 

390 
392 

394 

396 



400 

405 
410 
415 



IF VPEEKÍ6913+4*LT)<:2+VC THEN 

PUT BPRITE LT, (30*LT-20,200) 

C=INT( (VPEEK(6913+4*LT)+8)/8) 

:IF VPEEK(636e+C)=32 AND VPEE 

K (6367+C) =32AND VPEEK (63á9+C) 

= 32 THEN GOSUB 550 

IF CM=1 AND CP=0 AND INKTIME 

/60e) >LM THEN 700 

IF CP=1 AND INT(TIME/á0) >LM T 

HEN GOBUB 450 

GOSUB 900; IF NAí.OS THEN 60B 
UB 400 
GOTO 200 



Reparar carretera 



PLAY"19fiil000sl4n53": IF CJ<3 T 
HEN 3B0 

IF CJ>2B THEN 392 

FOR 11=6336 TO 6432 STEP 32: F 

OR I2=CJ-2 TO CJ+2 

IF VPEEK (11+12) =32 THEN VPOKE 

11+12, 136 

NEXTí NEXT: RETURN 

FOR 11=6336 TO 6432 STEP 32: F 

OR 12=0 TO CJ 

IF VPEEK (11+12) =32 THEN VPOKE 
11+12, 136 

NEXT: NEXT: RETURN 

FOR 11=6336 TO 6432 BTEP 32: 

FOR 12=29 TO 31 

IF VPEEK (11+12) =32 THEN VPÜKE 

11+12, 136 

NEXT: NEXT: RETURN 



Nuevo camión 



J=0 : FOR 1=1 TO 4: IF VPEEK ( 

6912+4*1) =200 THEN J=l 

NEXT 

IF J=0 THEN RETURN 
XP=VPEEK(6913+4*UG) : IF 255-XP 
<DM THEN RETURN 
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420 UC=J:GQSUB 900: IF NA< . 4 THEN 

C(UC)=1 ELSE C(UC)=8 
425 PUT SPRITE UC, (255, 34 ) , C (üC) 

430 RETURN 



Explosión de bomba 



450 PLAY"s8m2001 64n30n28n26n24" : C 

M=0: VPOKE 6464+PB, 32; CP=0: IF 

PB=31 THEN 470 
455 IF PB=0 THEN 480 

460 FOR J=6336 TO 6432 STEP 32: FO 

R K=PB-1 TO PB+1 
465 VPOKE J+K, 32: NEXT: NEXT : RETURN 

470 FOR J=6336 TO 6432 STEP 32: FO 

R K= 29 TO 31 
475 VPOKE J+K, 32: NEXT: NEXT: RETURN 

480 FOR J=6336 TO 6432 BTEP 32: FQ 

R K=0 TO 2 
485 VPOKE J+K, 32: NEXT: NEXT: RETURN 



Colocar bomba 



500 CP=1 : PB=CJ : VPOKE 6464+CJ , 2 

5 1 0 PLAY " 1 54m 1 2005 1 Sn35 " 

520 RETURN 



Caída de camión 



550 SPRITE ON:POKE 59997 !, LT: PQKE 

599?8Í,2:PÜKE 59999!, 3 

555 D=USR1(D):IF VPEEK (691 2+4->-LT) 

<10O THEN 555 

560 IF C(LT)=a THEN 800 

565 PT=PT+50: VPOKE 6912+4*LT, 200: 

VPOKE 6913+4-3(LT,L.T*30-20 

570 IF PT<30O THEN VC=3 ELBE IF P 

T<500 THEN VC=4 ELSE IF PT< 
700 THEN VC=5 ELSE IF FT<900 
THEN VC=6 ELSE IF PT<14O0 THE 
N VC=7 ELSE VC=8 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



580 



700 



740 



750 



800 



810 



900 

910 
920 



950 
955 

960 



BOSUB 400: SPRITE OFF: GGSUB 
1000:RETURN 



Jugador destruido 



FOR 1=1 TO 40:GDSUB 900:Aí="n 
"+STR$ ( INT ( 1 a>*m+ 1) ) : PLftY " 1 6 
4m350s8xa$j "iVPOKE 14336+IMT( 
60*NA) ,NA*255:NEXT 
GOTD SOO 



Hombre aplastado 



CLS: PRIWT: PRTNT"_^^ACABAS„D 
E„SER„APL ASTADO": FOR 1=1 TO 
2500: WEXT 



Fin de juego 



5TRIGÍ0) aFF:SCREÉN 1:PRI!\¡T"^ 
^^^^^FIN^DE„JüEEO": FOR 1=1 TO 

9:PR1NT:NEXT:PRIK!T"^^^ ^TüS^ 

PUNTOS„SON";FT 

IF ir\IKEY$="" THEN END ELSE 

810 



Número aleatorio 



NA=(9999#NA+NF)MDD 2997 I : NA=N 
A/2997! 

IF NA<.5 THEN r4F=NA* 10000+1 
RETURN 



Espacio pulsado 



CJ=INT( (yPEEK(69i3)+8) /O) 

IF VPEEK(6432+CJ)<>32 ArJD CP= 

O THEN GOSUB SOO: RETURN 

IF VPEEK(6432+CJ)=32 THEN GOS 



36 



O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 



965 



1000 



1010 



1100 

1110 



10000 



10010 



UB 350: RETURN 
RETURN 



Puntuación 



FOR 1=1 TO 22:PRINT:NEXT:PRIN 
T TAB(ló) CHR$(10) "Puntos: ";P 

t;chr$(11) ; 

RETURN 



Tiempo restante 



I=FL-INT(TIME/60) : IF KO THEN 
1=0 

IF CM=0 THEN VPOKE 6888, 32: RE 
TURN ELSE VPOKE 6BS8,4S+I: 
RETURN 



Datos de sprites 



DATA 1,19,17,15,7,3,1,3,2,6, 
255,255,255, 127, 63. 31 ,128, 200 
, 136,240,224, 192, 128, 192,64, 
96, 255, 255, 255, 254, 252, 248 
DATA 0,15,23,18,114,149,181, 
255, 248, 231 , 95, 63, 56, O, O, O, O, 
255,69,21,75, 101,21,255,0,255 
,254,254, Ó, O, O 



Tabla de claves 



10 




0 


50 




997 


150 




2684 


11 




0 


60 




416 


160 




750 


12 




0 


70 




66Í5 


200 




1540 


15 




4324 


100 




4236 


205 




5284 


20 




3995 


105 




1768 


207 




238 


25 




4580 


110 




3132 


210 




2131 


30 




4196 


120 




6006 


21 




11038 


35 




2781 


130 




899 


213 




4249 


40 




2563 


140 




1687 


215 




8831 



220 




o4 /3 


'f ¿o 




144-í 


1 40 




TO 1 
1 












1 4.i 


750 










1 OY--- 








800 




¿croo 
OOTO 












1026 


810 




IT/ID 








460 




2oji4 


900 




32o/ 








46D 




1256 


910 




21 lo 








4/0 




2076 


920 




143 


T i. 
■ÍC0 






4 /a 




12d6 


950 




o 1 A^ 

^ 1 04 








o#% 
4b0 




1988 


955 




-j 1 / / 


.ib y 






/I o^ 




Ud6 


960 






■ ^b-i 






CAA 

ayy 




19^1 


965 




1 AT 

1 4 ./ 


TOA 






Dl0 




A TAC 

1005 






4 1 O 1 


T O*^ 




1 oo 






14-i 


1010 




■t AT 


TO ,1 






ce A 

DD0 




¿.OTCf 


1 1 AA 

1 100 




"^0^7 
¿.tíD / 


TDi. 










*,T¿.4 


1 1 1 A 
1110 




,1. tCO 






T¿ 77 

oo^ / 


Doy 




VoD 


1 A A A A 

1 yyyy 




889B 


/I A^ 




1 "7 1 

1-J 1 


565 




/I T 1 C 

4315 


1 AA 1 A 

1 00 1 y 




7900 


410 




838 


570 




9693 








415 




3424 


580 




1476 


TOTAL= 


230474 


420 




3532 


700 




8332 









Diseño de los sprites 
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El goríía 
mat 



1 




npü de juego: 
KDUCATIVO 



Godofredo está ansioso de subir la colina > encontrar el gorila matemático. Cuando 
respondas una pregunta correctamente, la roca que cae no golpeará a Godofredo, lleván- 
dole al principio, y éste se acercará al gorila. 

Hay dos niveles de dificultad y las preguntas son sobre suma y multiplicación. Cuando 
tengas la respuesta pulsa <RETURN>. 
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SUGERENCIAS AL PROGRAMA 



Quizá puedas animar al gorila mientras cae ia roca, o que estreche la mano a Godo- 
fredo cuando se encuentren, o un grito agudo cuando la roca golpea a Godofredo,.. 



Variables del programa 

C Centinela. 

ND Nivel de dificultad. 

P Pregunta (1-2). 

MR Modelos de rocas (8 ó 12J. 

NI. N2 Números a sumar/multiplicar. 

NC Nuevo centinela. 

RJ Respuesta del jugador. 

VR Velocidad de la roca, 

MS Mensaje. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



10 



20 



25 



Inicialización 



COLOR 15,4,7:SCREEN 1.3:KEY 
□FF:ON INTERVAL=í 60SUB 7: INT 
ERVftL ON 
BOTO 5 

D=RND(1) :RETURN 
POR 1=6145 TG 6148:VPGKE 1,23 
:NEXT:7PQK£ 6144 , 24: VPOKE 
6175,25:VP0K.E 6680, 26: VPOKE 
69il,27:FÜR 1=6176 TO ¿84S ST 
EP 32: VPOKE 1,22: VPOKE 1+31, 
22:NEXT:FQR 1=6881 TO 69ie:VP 
DKE I,23:NEXT 

PRINT "„„„„_^^^„G^O^R^I„L^A" 
: PR I NT : PR I NT " _^^^„M„A^T^E^M 
^A^T„I„C^Q":FaR 1=1 TO 9:PRIM 
T:NEXT 

POR 1=1 TO 32;READ- Q: Aí=A$+CH 

Rt (Q) : NEXT: SPRITE$ (O) =AÍ : A$=" 
II 

FGR 1=1 TG 32:READ 0:A$~AÍ+CH 
R$ (Q) : NEXT: SPRITE$ ( 1 ) =At: A$=" 
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30 FOR I==l TO 8:READ Q:Aí=A$+CHR 

$ ( G ) : NEXT : SPR I TE* ( 2 ) =At : A$= " " 
35 FOR 1=1 TO e:READ Q:A$=A$+CHR 

$ (Q) : NEXT : SPR ITE$ (3) =A$ 
37 FOR 1=1088 TO 1119:READ Q:VPO 

KE I,Q:NEXT 
40 PUT SPRITE 1, (116,30), 1 

45 INPUT "Quieres^sumar (s)„o^^^„ 

^^^^-w-ínultiplicar (m) ^números 

50 IF X*="(n" OR X*="M" THEN P=2: 

GOTO 60 

55 IF X*="s" GR Xí="S" THEN P-1 

ELSE 45 

60 PRINT: INPUT "NI VEL^DE^DIPICUL 

TAD<l/2) "; X*: IF X$<"1" OR X$> 
"2" THEN 60 

65 ND=yALÍX$) 

70 CLS:FOR 1=6374 TO 6397: VPOKE 

I, 138: NEXT 
75 VPOKE 8209,228:PUT SPRITE 1,( 

92,23) :PUT SPRITE 0.(0, 104), 9 
80 FGR 1=0 TG 5:VPCK£ ¿176+33*1, 

136: NEXT: FOR 1= O TO 6: VPOKE 

6495+31*1, 137:NEXT 
85 FOR 1=6208 TO 6368 STEP 32: FO 

R J=0 TO K: VPOKE I+J, 139: NEXT 

:K=K+1:NEXT 
90 K=0:FOR 1=6527 TO 6719 STEP 

32: FOR J=-K TO 0: VPOKE I+J, 

139:NEXT:K=K+1:NEXT 
95 INTERVAL OFF: SPRITE ON:ON SPR 

ITE GOSUB 700 



Imprimir pregunta 



100 CD=0:NC=0:MR=8:RJ=0:PUT SPf IT 

E 2, (0, 1) 

102 M$="Cual „es^l a„respuesta?" : GQ 

SUB 1000 
105 IF POl THEN 120 

110 IF ND=1 THEN Nl^INT (RND ( í ) * 10 

+lí:N2=INT(RND(í)*10+l) ELSE 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



115 
120 



125 
140 



150 



300 
310 
390 



400 
405 



410 
420 

425 
430 
440 



N1=INT (RND ( 1 ) *20+l ) :N2=INT (RN 

D(l)#20+1) 

K=43:GÜTÜ 140 

IF ND=1 THEN N1=INT (RND ( 1 ) *5+ 
1) :N2=INT(RNDíl)*5+l) ELSE NI 
=INTÍRND(1>*10-H) :N2=INT(RND( 
1)*10+1) 
K=120 

FOR 1=1 TO 20:PRINTíNEXT:PRIN 
T TAB(6) ; :PRINT USlNG"tt#" 5 NI ; 
:PRINT TAB(9) ;CHR$(K) jTABÍll) 
;:PRINT USING"##"!N2! :PRINT T 
AB ( 14) ; "=^?_" ; CHR* (11); 
C=0 




GOSUB 400: IF NC=1 THEN 100 
GOTO 500 
GÜTÜ 300 



Movimiento de roca 



IF ND=1 THEN VR=2 ELSE VR=3 
Kl=VPEEKíí>921) :K2=VPEEK(6920) 
:IF Kl/4<>INT(Kl/4) THEN IF 
MR=8 THEN MR=12 ELSE MR=S 
VPÜKE 6922, MR: IF K-:i<49 AND K2 
<46 THEN VFÜKE 6921 , Kl+VR; VFO 
KE 6920,K2+VR:RETURÑ 
IF K2<50 AND KK240 THEN VPOK 
E 6921,K1+VR: IF Kl>62 AND Kl< 
125 THÉN VPÜKE 6916, O: RETURN 
ELSE VPOKE 6916,23:RETURN 
IF K2<:80 THEN VPDK'E 6920, K2 + 
VR:RETURN 

IF K2<125 THEN VPOKE 6920, K2+ 
VR:VPDKE 6921 , Kl-VR: RETURN 
IF KK5 THEN NC=Í:RETURN ELSE 
VPOKE 6921,K1-VR:RETURN 
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500 
505 

510 
515 



600 



605 
610 
650 
660 



661 



665 



700 
705 
710 




Xt=INKEYtíIF Xt="" THEN 300 
IF(Xt<"0" OR X*>"9") AND X$<> 
CHR$(13) THEN 300 
IF X$=CHRtíl3) THEN 600 
CD==CD+1:IF CD>3 THEN 600 ELSE 
RJ=RJ#10+VñL(X*) -.VPOKE 6801 + 
CD,48+VALÍX*) :GÜTO 300 



Comprobar respuesta 



IF CD=0 THEN 300 ELSE Mt=" 

GOSUB 1000 

: IF POl THEN 650 

IF N1+N20RJ THEN 300 

GOTO 660 

IF NH-N20RJ THEN 300 
IF NC=1 THEN 300 ELSE C=1:SPR 
ITE 0FF:K1=VPEEK(6720) :K2=VPE 
EK(6921):IF KK50 THEN VPOKE 
6912,23: IF K2<200 THEN VPOKE 
6913, K2 ELSE VPOKE 6913, 200: P 
UT SPRITE 2, (100,200) :NC=1 EL 
SE EL=1 

IF EL=1 THEN IF K2M95 THEN V 
POKE 6913,165 ELSE VPOKE 6913 
,K2:EL=e 

5PRITE ON:GOTO 300 



Choque de sprites 



BPRITE OFF:IF C^l THEN GOSUB 
11O0:RETURN 

IF VPEEK(6912)<70AND VPEEK ( 

6913X115 THEN 900 

FOR 12=1 TO 10:VPOKE6912,VPEE 

K(6912)-lO:PLAY"m3B0s8164n56" 

:FOR 11=1 TO 100: NEXT: VPOKE 



O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 
o 
o 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



720 



900 

910 
990 



1000 

1010 



1100 



1110 



10000 



Ó912, VPEEK(Ó912)+10:PLAY "m7<d 

O164sSn50":NEXT 

C=0:PUT SPRITE O, (O, 104) : PUT 

SPRITE X, (0,0) :NC=1:SPRITE ON 

: RETURN 



Fin de juego 



SCREEN 1:F0R 1=1 TO lOrPRINT: 
NEXT:PRINT "VIVA! ! ! !„-„ha.s^en 
contrado^al ":PRINT "Sorila^ma 
temati co" 

PLAY "m2555ll8o5edco4bo5co4t!5 

agao5co4bD5dl le" 

END 



Imprimir mensaje 



FÜR 1 = 1 Tü 23:PRTr4T:NEXT:PRir-! 

T"^„„";M*;CHR$(11) ; 

RETURN 



Salto del jugador 



PLAY "164n60":NC=l:C=0:Ko=VPE 
EK(Ó913) :K4=VPEEK(6912) : IF K4 
>50 THEN IF K3<:165 THEN VPÜKE 
6913, K3+20: SPRITE ÜN: RETURN 
ELSE VPOKE 6912, 23: SPRITE ON: 
RETURN 

VPÜKE 6913, K3-30: SPRITE ÜN: 
RETURN 



Datos de sprites 



DATA 1,2,1,1,7,15,13,3,9,11,3 
,3,3,3,6, 14, 192, 160,192,64, 
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O 
O 
O 
O 
O 
O 
O 
O 



10010 



10020 

10030 



10100 

10102 
10104 

10106 



240,248,216,8,200,232,96,96, 
96,96,48,56 

DATA 3,5,31,59,113,248,237, 
199, 135, 135, 207, 30, 28, 12. 6, 30 
, 128,64,240, 184,28,62, 110, 19B 
,194, 194,230,240, 112,96, 192, 
240 

DATA 96,240,06,0,0,0,0,0 
DATA 64,224,224,04,0,0,0,0 



Datos de sprites pequeños 



DATA 128,64,160,80,168,84,170 
,85 

DATA 1,2,5,10,21,42,85,170 
DATA 255, 170, 85, 170,85, 170« 85 
, 170 

DATA 170,85,170,85,170,85,170 
, 85 



Tabla de claves 



5 




4269 


85 




4522 


425 




1931 


6 




394 


90 




5026 


430 




2987 


7 




1018 


95 




2776 


440 




2750 


8 




11539 


100 




3025 


500 




1569 


10 




11865 


102 




3826 


505 




3352 


20 




4256 


105 




1091 


510 




1370 


25 




4255 


110 




9892 


515 




6721 


30 




3916 


115 




978 


600 




8827 


35 




339S 


120 




9978 


605 




1589 


37 




2172 


125 




453 


610 




539 


40 




827 


140 




9122 


650 




1591 


45 




9238 


150 




325 


660 




13012 


50 




2651 


300 




12BB 


661 




3663 


55 




2453 


310 




633 


665 




851 


60 




5294 


390 




433 


700 




1638 


65 




1018 


400 




1895 


705 




2719 


70 




2282 


405 




6714 


710 




9895 


75 




2375 


410 




4867 


720 




3184 


80 




4875 


420 




6687 


900 




8765 



910 


= 4201 


1110 = 


1365 


10100 


= 1642 


990 


- 1 29 


10000 - 




1 y lüz 


_ 4 '->-7Q 
— L ¿, f" 


1000 


= 3322 


10010 = 


9496 


10104 


= 1721 


1010 


= 143 


10020 = 


1153 


10106 


= 1640 


1100 


= 10033 


10030 = 


1279 


TDTAL= 


272972 



Diseño de los sprites 
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Rescate aéreo 




Upo de juego: 

.JUEGO DE SIMULACION 



Un rascacielos necesita, desesperadamente, unos paquetes especiales, los cuajes debes 
recoger con tu helicóptero de los edificios más bajos y ¡levarlos al rascacielos. En éste no 
puedes aterrizar, ya que no hay helipuerto, y podría producir un accidente. 

Debes recoger cuatro paquetes. Tus puntos son: 

Objetivo alcanzado lOp. 
Edificio alcanzado 5p 
Recogida satisfactoria 1^ 

Cuanto más rápido trabajes, mejor será tu puntuación. Utiliza la barra espaciadora 
para soltar el paquete. 



/ 
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SUGERENCIAS AL PROGRAMA 



Juega con los números asignados a J y las sentencias RND (1) de las líneas 200-22^ 
para aumentar o disminuir el vaivén de! helicóptero y su velocidad. 

Un buen ejercicio de programación con gráficos sería mejorar los edificios y el paisaje, 
y ¿qué me dices de poner ventanas y coches aparcados? 

Para alargar el juego puedes afiadir más paquetes y hacer que se entreguen en un 
orden determinado 



Variables del programa 

P Puntuación. 

PD Paquetes dejados. 

VH Velocidad helicóptero. 

DR Direcciones (diagonal ascendente o descendente). 

C Cargado. 

MI, M2 Número de paquetes cogidos de cada edificio. 



O 

o 
o 
o 
o 
o 
o 
o 
o 



5 

10 

1 1 

12 

30 
35 



40 



50 



55 



Inicialización 



REM RESCATE AEREO 

REM EJECUTA EL PRDGRAMA 

REM SOPORTE EN CODIGO MAQUINA 

REM VER APENDi;CE-B 

COLOR 11,1 , 1:SCF:EEN 2,2 

FOR 1=1 TO 75:READ X1,Y1,X2,Y 

2:LINE (XI, Y1)-(X2, Y2) , 11: 

NEXT 

PAINTdOO, 100) :PAINTíl70, 130) 
:PAINTÍ85, 135) :PAINT(70, 130) : 
PAINTÍ40, 100) : PAINT (20, 100) : 
PAINT(210, 170) : PAINT (140, IBO) 
:PAINT(40, 160) 

FOR 1=1 TO 32: READ Q: A$=A$+ 
CHR$(Q): NEXT: SPRITE* (0) =Aí : 
PUT SPRITE O, (240,0) , 10: At="" 
FOR 1 = 1 TO -32: READ Q: A$=A$+ 
CHR$(Q):NEXT:FQR 1=1 TQ 4:SPR 
ITE$ÍI)=A$:NEXT: A$="":PUT SPR 
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60 
65 

67 

70 

80 



100 
110 
120 
121 
190 



200 

205 

210 
215 

220 
300 



ITE 1, (226,70) , 14: PUT SPRITE 
2, (241, 70), 14: PUT SPRITE 3, ( 
226, 100) , 14:FUT SPRITE 4,(241 
,100), 14 



FOR 1=1 TO 



READ Q: AÍ=A*+ 



CHR$((3) NEXT: SPRITE* (5) =AÍ: 
A*="" 

FCR 1=1 TO 32: READ D: A$=AÍ+ 
CKR$(Q): NEXT: SPRITE* (6) =A$: 
A*="" 

FOR 1=1 TO 32: READ Q: A$=A*+ 
CHR* (Q) : NEXT: SPRITE* (7) =A* 
DEFUSR=60OOO'. :DEFUSR 1=601 ISÍ : 
POKE 59996 í, 15: PDKE 59997 !,0: 
PD=4:DR=2: VH=1 :TIME=0:C=1 
STRIBfO) ON : ON STRIB GQSUB 
800 



Control 



POKE 59999! ,VH:D=^USR(D) 
GOSUB 200 
GOSUB 300 
C=l 

GOTO 100 



Movimiento del helicóptero 



IF RNDllX.7 THEN K=DR: J=l; 
eOTQ 215 

J=4:IF RNDdX.S THEN K=l: 
GOTO 215 

K=3 

POKE 59999 !,J; POKE 599?S!,K: 

D=USR1 C D ) 

RETURN 

K=VPEEK(6918) : IP K<4 OR K>191 
THEN VPOKE 6912, 4: RETURN 



O 
O 
O 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



Comprobar posíciórt 



305 
310 
315 



330 



340 



390 



IF K>160 THEN 500 

IF K<30 THEN RETURN 

X=VPEEK(6913) : IF X>209 THEN V 

POKE 6913,209: IF K>160 THEN 

500 ELSE RETURN 

IF X<150 THEN 330 ELSE IF K < 

80 THEN RETURN ELSE IF X>200 

THEN 500 ELSE IF X<1¿5 THEN R 

ETURN ELSE IF C=l THEN 500 EL 

SE M2=M2+1:GGT0 400 

IF K>140 THEN 500 ELSE IF X < 

60 THEN 340 ELBE IF K>50 THEN 

RETURN ELSE 500 

IF K<60 THEN RETURN EL5E IF K 

>100 THEN 500 ELSE IF K>S0 TH 

EN RETURN ELSE IF C=l THEN 

500 ELSE M1=^M1 + 1: GDTD 400 

RETURN 



Recoger paquete 



400 



410 
440 



C=1:PUT SPRITE FD, (235, 130) : P 
UT SPRITE 6, (233, 160) , 15:DR=^0 
; FT=PT+ 10:" VPOKE 6912, v'PEEK ( 
6912)-2 

IF Ml>2 GR Íi2>2 THEN 700 
RETURN 




500 PUT SPRITE 6.(100,200): FUT 

SPRITE 7, (233, 160) , 15: VPOKE 
A914,20:FOR 1=1 TO 30:PLAY"16 
01000sl4n50":NEXT:FOR 1=1 TO 
2500: NEXT: PUT SPRITE 7,(100 

,200) 

550 GOTO 900 
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Edificio incorrecto 



700 



710 



SCREEN 1:PRINT "DEBES^COGER^D 
0S„PAQUETES„":PR1NT "DE^CADA„ 
EDIFICIO": FOR 1=1 TO 3000: 
NEXT 

PRINT "Intentalo^otra^vez": IF 
INKEY*="" THEN END ELSE 710 



Dejar paquete 



800 IF C=0 THEN END 

805 PUT SPRITE 6, ( lOO, 200) : PLAY"! 
8mlOO0sl4n40'' : C=0: DR=2 EL=0 

806 I1=VPEEK(6913) : IF IK150 THEN 
820 ELSE IF IK170 THEN PUT S 
PRITE PD, (II, 160) :PD=PD-1:G0T 
0 850 ELSE IF IK2O0 THEN PUT 
SPRITE PD, (11,90) :PD=PD-1:G0T 
O 850 ELSE PUT SPRITE PD, (II, 
160) :FD=PD-1: GOTO 850 

820 IF I1M40 THEN PUT SPRITE PD. 
(11,90) :PD=PD-1:GQT0 B50 ELSE 
IF ri<60 THEN 840 ELSE IF Il< 
72 THEN PUT SPRITE PD, (11,145 
) :PD=PD-1:G0T0 S50 ELSE EL=1 

821 IF EL=1 THEN IF IKIOO OR U> 
106 THEN PUT SPRITE PD, (11,32 
):PT=PT+50: PD=PD-1: GOTO B50 

830 PUT SPRITE PD, (11,32): PT=PT+ 

100;PLAY "mll00sei3n50":PD=PD 
-1:G0T0 850 

840 IF IK22 OR 1 1 >55 THEN PUT SP 

RITE PD, (II, 110) :PD=PD-i:GOTG 
850 ELSÉ PUT SPRITEPD, (11,70) 
:PD=PD-1 

850 IF PD=0 THEN FOR 11^1 TO 2000 

: NEXT: GOTO 900 
860 RETURN 



Fin de juego 



900 SCREEN 1 : PRINT"„„„^„ „^«FIN^ 

DE„ J UEGO " : PR 1 NT : PR 1 NT : PR I NT 

910 PRINT "„^_PUNTOB : " ; PT 

915 IF PDO0 THEN 9¿10 ELSE K=150- 

TIME: IF K<e THEN K=0 

920 PRINT: PRINT: PRINT"MAB„BÜNÜS„P 

ORILLE VAR^TQDÜS " : PR I NT " LQS^PA 
QUETES: INT <8*K) : PRINT: PRINT 
"EST0„TE^Dñ„UN^TOTñL^DE^" í PT+ 
INT(8*K) 

940 IF INKEY$="" THEN END ELSE 

940 



Datos del dibujo 



10000 DATA 100,14,100.13.100,14,148 
,41, 100, 14,72,41, 100, 13, 145, 
44, 100, 18,75,42, 120,68, 148,41 
, 120,68.72,41, 120, 66, 120, 160, 
72,41,91, 145, 148,41, 140, 140 

10002 DATA O, 100, 120, 160, O, 112, 110, 
168,88, 190, 110, 168, 110, 190, 
140, 16Ó, 140, 16Ó, 1?5, 190, 120, 
160, 153, 127, 149, 150, 176, 165, 
186, 169,225, 190, 186, 169,225, 
131, 176, 165,225, 118 

10004 DATA 96,136,109,142,98,136, 
100. 150, 100, 150, íes, 142, 109, 
142, 110, 155, 102, 43, 120,43, 102 
,43, 113,50, 102,43, 109,36, 113, 
50, 120,43, 113,50. 109,36, 109, 
36, 120,43 

10006 DATA 180,70,159,91,180,70,214 
,90, 180,73, 161,91, 180,73,213, 
91,180,70, 180,73, 159,91,194, 
109, 159,91, 150, 150. 194, 109, 
177, 164,214,90, 192, 149, 194, 
109,215,90 



O 
O 
O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 



10008 



10010 



10012 



10014 



10100 



10110 



10120 



10130 



10140 



DATA 79,139,75,120.75,120,87, 
126,75, 120,84, 111,78, 137,61, 
128,61, 128,59, 122,59, 122,76, 
130,59, 122,82, 100,60, 130,46, 
83,46,83,21,70, 46,83,59,70 
DATA 59,70,35,57,35,57,21,70, 
21,70,40, 119, 40. i 17, 16, 105, 16 
, 105, 10,93, 10,93,35, 105, 10,93 
,24,78,0, 190,88,190, 110, 190, 
195, 190,59,70,70, 1 12 
DATA 143,103,152,107,152,107, 
150, 125, 150, 125, 140, 134, 142, 
116, 152, 107,205, 116,219. 102, 
219, 102,212,97,219, 102,209, 
128,209, 128, 195, 141, 198, 172, 
225, 186, 198, 172,204, 160,204, 
160,225, 171,204. 160,217 
DATA 146,217,146,225,150,225, 
190, 225, 30, 225, 30, 255, 30 



Datos de sprites 



DATA 0,0,255,4,14,127.177,241 
,255, 127,32,255,0,0,0^0,0^0, 
224,0,2, 133, 194,254,248,240, 
128,224,0,0,0,0 
DATA 1,2,4,8,21,26,29,30,31, 
31,31, 15,7,3,1,0, 123. 64,32, 16 
,8,24,40,200, 136, 136, 136, 144, 
160, 192, 128,0 

DATA 0,4,66,136,2,64,18,42,10 
, 165,43, 144,40, 1,64, 18, 128, 16 
,4,32, 1,72,33, 146,204,22,200, 
92,64,9,0,32 

DATA 255,255,255,227,221,190, 
190, 190, 190, 190, 221 , 227, 255, ' 
255 , 255 , 255 , 255 , 255 , 255 , 1 87 , 
183, 175, 159, 175, 18 
DATA 192,160,198,170,170,198, 
0,0,0,0,0,255,0,0,0,0,0,0, 198 
, 170, 170, 166,2,2, 10,4,0,255,0 

,0,0,0 



Tabla de 



claves 







0 


220 




143 


850 




2658 


10 


_ 


0 


300 


— 


3084 


860 




143 


11 


_ 


0 


305 




1131 


900 




2663 


12 


_ 


0 


310 




868 


910 




1325 


30 


_ 


719 


315 


— 


4179 


915 




3569 


35 


— 


35S4 


320 




8482 


920 




9965 


40 




7597 


330 




4059 


940 




1481 


50 




5263 


340 


— 


6748 


10000 


— 


13270 


55 




12463 


390 


- 


143 


10002 




16393 


60 





3996 


400 




6160 


1 0064 




14772 







3997 


410 


_ 


1616 


10006 


_ 


14760 


67 





3481 


440 




143 


10008 


— 


12789 


70 





6544 


500 




8529 


10010 


— 


12062 


80 





1496 


550 


_ 


523 


10012 




22370 


100 




1648 


700 




5948 


10014 


— 


2786 


1 10 


_ 


362 


710 


_ 


3921 


10100 


- 


7539 


120 




207 


800 


_ 


824 


10110 




7438 


121 


— 


325 


805 


— 


3300 


10120 




7419 


190 




489 


806 




15211 


10130 




11545 


200 




3030 


820 




1 0348 


10140 




6674 


205 




2867 


821 




6348 








210 




337 


830 




4989 


TÜTñL= 


336007 


215 




2498 


340 




6786 










158 





Se ha preparado una emboscada a un escuadrón de tanques enemigos. Tu tanque 
está situado en un risco, desde donde disparas al enemigo que viene por la derecha. Con 
las teclas de p a 9 eliges el ángulo y velocidad de disparo; después pulsa la barra espa- 
dadora para disparos. También puedes lanzar una bengala para poder ver los taiiques 
enemigos pulsando sólo la barra espaciadora. 

Cada tanque abatido íe suma 50 puntos en el marcador. El juego termina cuando un 
tanque alcanza la base del risco. 
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SUGERENCIAS AL PROGRAMA 



Creando otros sprites y modificando la rutina "movimiento de tanques enemigos" se 
puede añadir más tanques. 

La dificultad del juego la determina, por otra parte, la distancia entre los tanques, 
asi que si se modifican las lineas 216 a 222 se puede obtener efectos interesantes. 



Variables del programa 



NP. PT 


Número de pantalla; puntuación. 


M9 


Mensaje. 


OP 


¿Otra pantalla? 


TM 


Ultimo tanque movido. 


F 


¿Fuego? 


A, V 


Angulo; velocidad. 


T 


Tiempo. 


XI, YI 


Coordenadas iniciales de la bomba. 


X, Y 


Coordenadas calculadas. 



O 

o 
o 
o 
o 
o 
o 
o 
o 



10 

11 

12 
15 



20 
25 

30 

35 
40 




REM EJECUTA EL PROGRAMA 
REM SGPGRTE EN CODIGG 
REM MAQUINA 

SCREEN 1,2: KEY ÜFF: PRINT TA 
B<5í "EMBGSCADA^DE„TANQUES": P 
RINT: PRINT: PRINT: PRINT 
FGR 1=1 TG 32: READ 0: A*=A*+ 
CHR$(Q): NEXT: SPRITE* (O) =A*: 
A*=" " 
FOR 1=1 
CHRtíQ) 



READ Q: A$=A$+ 
SPRITE$(l)=At: 
SPRITE $<3)=AÍ 



TO 32: 
: NEXT: 
SPRITE$(2)=A*: 
: SPRITE* (4) =A$: A$="" 
FGR 1 = 1 TO 8: READ G!: A$=A$+ 
CHR*(E!>: NEXT: SPRITEÍ (5) =A$: 
A*=" " 

FOR 1=1 TG 8: READ Q: At=AÍ+ 
CHRt(Q): NEXT: SPRITE$(6) =A* 
DEFUSR=60n8! : POKE 59978 !, 1 



162 



45 INPUT"PULSA„*RETURN'„PARA„EMP 
EZAR";X$ 

50 CLS: CÜLGR 14, 1, 1 

55 FGR 1=6496 TG6752 STEP 32: F 

ÜR J=0 TG 5: VPÜKE I+J,255: 
NEXT: NEXT: FOR 1=6784 TG 6815 
: VPDKE 1,23: NEXT 

60 FGR 1=1 TO 21: PRINT: NEXT: P 

RINTV, ANGULO Y„VELGC. ": 

PRINT CHRt (11) ; : M$="LISTG„„^ 
«ww^w^-^": GGSUB 1000 

65 FGR 1=6144 TO 6431: IF RND ( 1) 

<.7 THEN VPGKE 1,46 

67 NEXT: FGR 1=36 TG 375: VFGKE 

1,0: NEXT: VPGKE 369, 1 



Nuevo juego 



70 PUT SPRITE O, (2,74) , 10: TM=1: 
F=0: K1=35#(TIME/10-INT(TIME/ 
10))+60: PUT SPRITE 1,(235,K1 

71 PUT SPRITE 2, í255,K:1+20) , 1: 
PUT SPRITE 3, (235,K1+40) , 1: 
PUT SPRITE 4, í255,Kl+55) , 1 

75 0P=0: SPRITE GN: ON SPRITE GO 

SUB 300 




80 IF F=0 THEN 95 

85 GGSUB 150 

95 GOSUB 200: IF GP=1 THEN NP==NP 

+1: eOTQ 70 
100 X$=INKEY$: IF Xí = "" OR FOO 

THEN 80 

105 IF X*-=" " THEN ?^5="EENGALA 

^ ": GOSUB 1000: F=2: A= 

.628: V=9: GOSUB 150: GOTO 80 

110 IF X*<"0" OR X$>"9" THEN lOO 



4' 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



115 
117 

120 
125 

13© 

Í35 
140 
145 

147 



148 



150 

152 
153 



155 

1¿0 

165 
170 



175 
180 
185 



K1=VAL(X$): VPÜKE 6829,K:1+4S 
XÍ=^INKEY*: IF X$="" THEN 6Q5U 
B 200: GOTO 117 
IF X$<"0" GR X$>"9" THEN 117 
ñ=10*Kl+VAL<X$) : VPGKE 6830, 
VñL(X$)+4e: A=ñ*. 01745 
X*=INKEY$: IF X5="" THEN GÜSU 
B 200: GOTO 130 
IF X$<"0" GR X$>"?" THEN 130 
V=VAL(X*): VPDKE 6B41,V'+4B 
F=0: X$=INKEY$: ' IF X$="" THEN 
GOSUB 200: GOTO 145 

IF X$="^" THEN M? = "FUE6G 

GOSUB 1000: F=l: GGS 

UE 150: GGTO 80 
GOTG 145 



Movimiento de bomba 



T=T+3: XI=V*CQE(A) /2. 1: YI=V* 
SIN(A) /2. 1 

IF T03 AND TO0 THEN 155 

IF F=0 THEN RETURN ELSE PUT 

SPRITE 5, (20,55) , 15: FLAY"mB0 

sll64n30n20" 

X=INT(20+T*XI) 

Y=INT(55-T*YI+.04?*T*T) 

IF X<8 GR X>247 ÜR Y>154 THEN 

6GSUB 400: RETURN 

ÍF Y<e THEN PUT SPRITE 5,Í100 

,210) ELBE PUT SPRITE 5, ÍX,Y) 

.15 

IF F02 THEN 1B5 
IF T>=30 THEN 250 
RETURN 



Movimiento de tanques enemigos 



200 



SPRITE OFF: TM=TM+1: IF TM=5 
THEN TM=1 
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210 IF VPEEK(6912+TM^4) >200 THEN 

RETURN 

215 PÜKE 59997 !,TM: GN NP GOTG 
216,217,217,219,219,221,222 

216 K=l: GOTG 225 

217 K=2: GOTO 225 
219 K=3; GOTO 225 

221 K=4: GOTG 225 

222 K=5 

225 POKE 59999! ,K: D=USRÍD) 

230 IF VPEEKC6913+TM*4)<41 THEN 

600 

235 SPRITE ON: RETURN 



Lanzallamas 



250 PUT SPRITE 5,(100,210): FOR I 

= 1 TO 5: COLOR 1,15_, 15: FOR J 
=1 TG 70: NEXT: COLOR 14,1,1: 
FGR J=l TO 70: NEXT: NEXT 

255 M$="LISTO^^^_„^__": GOSUB 

1000: F=0: T=0: VPOKE 6829,32 
: VPOKE 6830,32: VPOKE 6841, 
32 

270 RETURN 



Explosión tanque enemigo 



300 IF FOl THEN RETURN ELSE VPOK 

E 6934,24: COLOR 1,15,15: PLA 
Y"ml3000sll8n40n35n40n35": FG 
R 11=1 TO 200: WEXT: COLOR 14 

305 12=0: FGR 11=1 TD A: IXD=VPEE 

K(6913+I1#4)-VPEEK(6933) : lYD 
=VPEEK (6912+11*4) -VPEEK ( 6932 ) 
: IF IXD<0 THEN IXD=-IXD 

310 IF IVD<0 THEN IYD=-IYD 
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o 
o 
o 
o 
o 
o 
o 
o 
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o 
o 
o 
o 
o 



315 

320 
325 



330 



350 



400 
405 

410 
450 



600 

610 
620 
630 



IF VPEEK (6933) +6>=VPEEK (6913+ 
11*4) AND IXD< = 16 AND VPEEK. ( 
6932)+ 6>= VPEEK (6912+1 1*4) 
AND IYD<=14 THEN 12=11 
NEXT: VPDKE 6914+4*12,24: FOR 
11=1 TO 200: NEXT 
P=P+50: VPDKE 6914+4*12,4*12: 
VPOKE 6934,20: PUT SPRITE 5, 
(100,210): PUT SPRITE 12,(12* 
25-25,210): F=0: T=0: M$="LIS 

T0„ s GüSüB 1000 

IF VPEEK (6916) >200 AND VPEEK í 
Ó920)>200 AND VPEEK C6924) >200 
AND VPEEK (692B) >200 THEN 0P=1 
VPOKE 6829,32: VPDKE 6830,32: 



VPDKE 6841 



RETURN 



Explosión de bomba 



VPDKE 6934,24: T^0:F=O: M$="L 
ISTO„^^^^__^": GGSU3 1000 
PLAY"m801 64sBn lOn 12" í VPDKE 
6829,32: VPOKE 6830,32: VPOKE 
6841,32: FOR 1=1 TQ 400; NEXT 
VPOKE 6934,20: PUT SPRITE 5, í 
100,210) 
RETURN 



Fin de juego 



SCREEN 1: PRINT TAB Í8) "FIN„DE 
L^JUEGD": PRINT: PRINT: PRINT 
: PRINT 

PRINT"Tus„pu.ntD5^SDn: "iP? PRI 
NT 

PR I NT " Has„su.p er ad □ " ; MP : PR I NT 

"oIeadas":PRIWT"de„tanques" 

END 
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O 

o 
o 
o 
o 
o 
o 
o 
o 



1000 



10000 



10010 



10020 
10030 



Programa/ mensaje 



FOR 1=1 TO 23: PRINT: NEXT: P 
RINT M$; TAB(17) ; "Puntos";Pi; 
CHR$(ll)í: RETURN 



Datos de sprites 



DATA 0,0,63,63,63,63,127,0, 

127,200, 135,200, 127,0, , , 1,7, 

156,240, 192,248,254,0,254, 19, 

225,19,254,0,0,0 

DATA 0,0,255,1,7,31,127,0,127 

, 199, 146, 199, 127,0,0,0,0,64, 

248, 248, 248, 252, 254. O, 254. 227 

,73,227,254,0,0,0 

DATA 0,0,24,60,60,24,0,0 

DATA 128Í4,64,0, 144.5,40, 134, 

67, 177,68, 16,68,0, 128, 16,4,0, 

129, 16,6, 129, 146,34,25, 162, 16 

,65,0,6,0, 129 



Tabla de claves 



10 




0 


70 




6283 


140 




1927 


11 




0 


71 




4595 


145 




2984 


12 




0 


75 




1473 


147 




4540 


15 




4105 


80 




809 


148 




538 


20 




3995 


85 




310 


150 




4746 


25 




6939 


95 




2651 


152 




1980 


30 




4012 


100 




2467 


153 




3437 


35 




3500 


105 




60B3 


155 




1605 


40 




1767 


110 




1814 


160 




2787 


45 




2Ó03 


115 




2004 


165 




2905 


50 




578 


117 




2501 


170 




2888 


55 




5731 


120 




1814 


175 




1144 


60 




6851 


125 




42Ó4 


180 




1246 


65 




2746 


130 




2535 


185 




143 


67 




2223 


135 




1844 


200 




2645 



167 



210 




Z251 


215 






216 




1025 


217 




10JD 


219 




102t 


¿4il 




1 y^íT 






sS-J / 


225 




1544 


230 




2094 


235 




551 


250 




5620 


255 




4941 



270 = 143 

300 = 6683 

305 =9158 

310 = 1848 

315 = 9139 

320 =2518 

325 = 10256 

330 = 6189 

350 = 1875 

400 = 3273 

405 = 4720 

410 = 1424 



450 




14.-- 


600 




2695 


610 




2134 


620 




4360 


6o0 




129 


1000 




3901 


10000 




7566 


10010 




7899 


10020 




U58 


10030 




7606 



TOTAL= 242335 
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Concentración 13 




Desafia a tu oponente a uns batalla mental. Elige dos cartas entre dieciocho; si ambas 
tienen el mismo número, en el reverso, tienes un punto; si no, se vuelven otra vez boca 
abajo y se le da una oportunidad a tu aintrario. 

¡Que gane el que mejor memoria tenga ! 
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SUGERENCIAS AL PROGRAMA 

Para facilitar el juego puedes usar un rango de números menor. Si, por el contrario, 
quieres hacerlo más difícil, en vez de tener doS grupos de números, del 1 ai 9, pon tres 
grupos de números del 1 al 6 y haz que cada jugador elija tres cartas. 

La presentación en pantalla quedaría mejor poniendo más colores a las cartas. 

Variables del programa 

J$(l), .1^(2) Nombres de los jugadores. 

P(l), P)2) Puntuaciones. 

N(I, J) Números de las cartas. 

JC Jugador en acción. 

CL Carta a levantar. 

UC Ultima carta. 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



Inicializacíón 



1© 



15 
20 



25 
35 

40 
45 



SCREEN 1: COLOR 15,4,4: KEY 
OFF: PRINT TAB(8) "CONCENTRAC 
ION" 

DIM N(18,2) 

FOR 1= lt?72 TO 1143: READ Gl: 
VFOKE 1,0: NEXT: FÜR 1= 1152 
TO 1223: READ D: VPOKE I,Q: 
NEXT: VPOKE 6208,164: VF'OKE 
8209,164: VPDKE 8210,228: VPÜ 
KE 8211,228 

FDR 1=1 TO 5: PRINT : NEXT: P 
RINT "NombrG„del„jugador^l?" 
X$=INKEY$: IF X$="" THEM D=RW 
D(l): GOTO 35 EL5E IF X$=CHR$ 
(13) THEN J$(1)="R1CARDQ":G0T 
O 50 ELSE J*(1)=X$ 
L=LEN(J$a)): BEEP: VFOKE 
Ó403+L, ASC(X*) : IF L> 15 THEN 
50 

X$=INKEY$: IF X$="" THEN D=RN 
0(1): GOTO 45 ELSE IF X$=CHR$ 
(13) THEN 50 ELSE J${n=JS(U 
+X$: GOTO 40 



O 
O 
O 
O 
O 
O 
O 
O 

O 

o 



172 



50 
60 

65 

70 

75 
BO 



100 

140 
150 

155 

160 



200 

205 

210 
215 



FÜR 1=1 TÜ 5: PRINT : NEXT: P 
RINT "Nambre„del ^jugador „2?" 
X*=INKEY*: IF X$="" THEN ÓO 
ELSE IF X$=CHR$(13) THEN J$Í2 
)="JULrO":60TO 75 ELSE J$(2)= 
X$ 

L=LEN(J$(2) ) :BEEP: VPOKE 6595 
+L,ASCÍX$): IF L>15 THEN 75 
X$=INKEY*: IF X$="" THEN 70 
ELSE IF X$=CHR$(13) THEN 75 
ELSE J$Í2) 

FOR 1=1 TO 5: PRINT : NEXT: P 
RINT "Vale ";J$(Í);" PRIM 
T: PRINT "Tu.^primera.„PULSA^U 
NA^TECLA" 

IF INK:EY$="" THEN 80 



Preparación pantalla 



CLS: FOR CL=1 TO 18: 60SUB 
400: NEXT 

JC=1: GOSUB 600: 1=0: J=0 
1=1+1: IF 1= 10 THEN 1=1: 3=3 
+1: IF J=2 THEN 200 
K=INTÍRND(1)*1B+1) : IFN(K,1) 
=0 THEN NíK,l)=l ELSE 155 
6ÜT0 150 



Editor 



PRINT CHRÍÍll); 
20: PRINT ; NEXT : 
e^l a^pri mera„carta ' 
X$=INKEY$: IF X$="' 
"A" OR X$>"R") AND 
X$>"r") ) THEN 205 
IF X$>"R" THEN CL= ASC(X$)-96 
ELSE CL=ASC(X$)-Ó4 
IF NÍCL,2)=1 THEN 205 
SUB 300: UC=CL 



FDR 1=1 TO 
: PRrNT"Elig 



OR Í(X$< 
ÍX$<"a" OR 



ELSE 00 



O 
O 
O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 
o 

O 
O 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



220 
225 



230 
235 

240 
245 



250 
255 



260 



300 



305 
310 
315 
320 



PRINT "Ahora„l3_segunda^^" 

X$=INKEY$: IF X$="" OR ((X*<" 

ñ" OR Xí>"R") AND <X*<"a" OR 

X$>"r")) THEN 225 

IF X*>"R" THEN ASCÍX*)-96 

ELSE I=ASC(X$)-64 

IF I=CL THEN 225 ELSE CL=I: 

IF N(CL,2)=1 THEN 225 ELSE GO 

SUB 300 

IF N(CL, 1)=N<UC, 1) THEN GOSUB 
500: GOTO 250 

PLA Y " 1 4m6 1 680s 1 0n2 " : PR I NT " IMq 
^atinñste„": FOR T=l TO 2000: 
NEXT: GOSUB 400; CL=UC : GOSU 
B 400 

IF JC=1 THEN JC=2 ELSE JC=1 
PRINT CHRt(ll);: FOR 1=1 TO 
19: PRINT : NEXT : FOR 1=1 TO 

3: PRINT ^ 

^^^„":NEXT:PRINT '' 



GOSUB ¿00: GOTD 200 



Levantar carta 



325 



PLAY"s8ml00012Cn20r3On35": K> 
INTC(CL-l)/6)+l: CN K GOTO 
305,310,315 

AD=6172+5*CL: GOTO 320 

AD=6332+5*(CL-6) : GOTO 320 

AD=6492+5*(CL-12) 

VPOKE AD,144: VPDKE AD+l,14e: 

VPOKE AD+2,14B: VPOKE AD+3, 

148: VPOKE AD+4, 146: VPOKE AD 

+32,150: VPOKE AD+64, 150: VPO 

KE AD+96,150: VPOKE AD+128, 

145: VPOKE AD+129, 149 

VPOKE AD+ 130, 149: VPOKE AD+ 

131,149: VPOKE AD+132, 147: VP 

OKE AD+100,151: VPOKE AD+68, 

151: VPOKE AD+36, 151 

FOR 1= AD+33 TO AD+97 STEP 32 



74 



390 



: FOR J=0 TO 
: NEXT: NEXT; 
CL, l)+48 
RETURN 



í: VPOKE I+J,152 
VPOKE AD+6¿,N( 



Volver cartas 



400 



405 
410 
415 
420 



421 



425 



490 



PLAY " S8L50M 1 OO0N35N20 " : K= I NT ( 
ÍCL-l)/6)+l: ON K GOTO 405j 
410,415 

AD=6172+5*CL: GOTO 420 
AD=6332+5* (CL-6) : GOTO 420 
AD=6492+5*ÍCL-1.2) 
VPOKE AD,134: VPOKE AD+1,138: 
VPOKE AD+2,138: VPDKE AD+3, 
138: VPOKE AD+4, 136: VPOKE AD 
+32,140: VPDKE ÁD+64, 140: VPO 
KE AD+96,140: VPOKE ÁD+128, 
135: VPOKE AD+129, 139 
VPOKE AD+130,139: VPDKE AD+ 
131,139: VPOKE AD+132, 137: VP 
QKE AD+100,141: VPDKE AD+68, 
141: VPOKE AD+36, 141 
FOR 1= AD+33 TO AD+97 STEP 32 
: FOR J=0 TO 2: VPOKE I+J, 142 
: NEXT: NEXT: VPDKE AD+66^64+ 
CL 

RETURN 



500 
510 
520 

521 



530 
550 



Acertaste 



P(JC)=PtJC)+l 

N(UC,2)=1: MÍCL,2)=1 

K 1 =204 : PLAY " M200OL 1 0B8N35N40 

": GOSUB 580 

Kl = 193: PLAY"! 10S8t11000N3ON45 
": GOSUB 580: Kl=32: GOSUB 
580 

IF P(l)+P(2)=9 THEN 900 
RETURN 



4. 



175 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



580 



585 



600 



690 



900 



910 



920 



930 



990 



FOR 1=6144 TO ¿175: VPOKE I, 
Kl: NEXT: FOR 1=6176 Tü 6656 
STEP 32: VPÜKE I,K1: FDR J=l 
TO 50: NEXT: PLAY "S8L64M500N 
25": VPOKE 1+31, Kl: NEXT; FOR 
1== 6656 TO 6687: ypOKE I,K1: 
NEXT 
RETURN 



Nombre/puntuación 



PRINT CHR*(11);: FOR 1=1 TO 
18: PRINT : NEXT : PRINT J$íJ 
C) TABÍ18) "Puntos: "jPÍJO 

RETURN 



Fin de juego 



CLS: PRINT "El ^ganadar„es^: " : 
IF p{l?>P(2) THEN PRINT J$(l) 
: PRINT "con^una^puntuacian^d 
e„„";P(lí ELSE PRINT J$(2): P 
RINT "cQn„una„puntuacion„de«« 
";PÍ2) 

PLAY"vl0a414al8g5l8egI2-f 1 la", 
"o314ñieegl8geI2f 1 lí "o514cÍ 
8gel8gel2-f 1 le" 

FOR 1=1 TO 3000: NEXT: PRINT: 

PRINT : PRINT"Mala„suerte.«"; 

; IF P(1KP(2) THEN PRINT' Jt( 

1); PRINT "tus„puntos„son^^"; 

P(l) ELSE PRINT J*Í2): PRINT 

"tus„puntos^son_^" P (2) 

PLAY "vi 51 4Os8m6OO0On2r4On 1 r3 

On4r20nlr3On2rlOn5rlOn4rlOn3r 

2013nl" 

END 
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O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



10000 

10010 
10020 

10030 
10040 
10050 

10060 
10070 

10080 

10090 
10100 
10110 
10120 

10130 

10140 

10150 

10160 

10170 



Datos de sptites pequeños 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

,64 

DATA 

,85 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

240, 

DATA 

255, 



0,0,0,0, 1,0,5, 10,5 
10.5. 1O',5.O,O¡,0,0 
0,0,0,0, 160,64, 160,64 
160, 64, 160, 64, O, O, O, O 
0,0,0,0, 170,85, 170,85 
170,85, 170,85,0,0,0,0 
10,5, 10,5, 10,5, 10,5 
160,64, 160,64, 160,64, 160 

170,85, 170,85, 170,85, 170 



O. 0, 
15, 1 

0,0, 

240, 
0,0, 
255, 
15, 1 
240, 

240 
255, 

255 



O, 15, 1 



15, 15, 
0.240, 
240,240, 
0,0,255, 
255,255. 
5, 15, 15, 
240,240, 



5, 15, 15 

0,0,0,0 

240,240,240 

240,0,0,0,0 

255,255,255 

255,0,0,0,0 

15,15, 15, 15 

240,240,240, 



Í55 , 255 , 255 , 255 , 255 , 



Tabla de claves 



10 




2981 


100 




1609 


240 




2639 


15 




404 


140 




1537 


245 




6223 


20 




7430 


150 




3623 


250 




1831 


25 




3580 


155 




4256 


255 




6476 


35 




7931 


160 




539 


260 




914 


40 




3766 


200 




4576 


300 




5209 


45 




7038 


205 




5522 


305 




1698 


50 




3582 


210 




4090 


310 




2270 


60 




6062 


215 




2423 


315 




1589 


65 




4015 


220 




1975 


320 




11194 


70 




5547 


225 




5510 


321 




6761 


75 




6034 


230 




3900 


325 




5972 


80 




1027 


235 




3811 


390 




143 



177 







=^ 1 

J i / ■-■ 






1 "70Q 
1 / TO 


AA Ct 






A 1 ^ 




i DÍ3T 






111 -'M- 


A'^ 1 




/ W^-i- 






1 

D / i ^ 








V V 










1 395 


S'^ñ 






==¡'7 1 

□ j^ i 




3325 


530 




1443 


550 




143 


580 




9830 







1 AT 


A00 






Q T V 




1 43 






1 1 7=;c5 


91 0 






920 






930 




493R 


990 




1 '^9 


10000 


_ 


1025 


10010 


_ 


1017 

i. T.' ^ / 


1 00'?0 




1 7A4 


10030 




1272 


10040 




1272 


10050 




1280 



1 flAAA 




1 1 50 

X X J V 


1 w / y 




1 A'íP 
X o^o 






1 A40 


1 V "y T 




1 1 34 






1 1 50 


10110 
X •1' X X v 




1372 


10120 




1404 


1 01 30 




1384 


1 01 




141A 

X ^ X LJ 


10150 




1404 


10160 




1864 


10170 




1888 



TOTAL= 275051 
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Acróbata 1 9 
aéreo 




1 ipo de juego: 

JUEGO DE SIMULACION 



Un grupo de acróbatas traían de saltar de una avioneta a una cama elástica. Para 
saltar, pulsa la barra espadadora, pero, ¡controla la velocidad del viento y la altura 1, ya que 
pierdes punios si caes al suelo o a la cerca de pinchos, y tu hombre muere si cae en los 
cables de alta tensión. 
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SUGERENCIAS AL PROGRAMA 



Puedes modificar la velocidad y ei efecto del viento en la trayectoria del hombre 
cambiando los valores de las variables VV y T en la línea 310. 



Variables del programa 

ND Nivel de dificultad. 

VV Velocidad del viento. 

T Tiempo. 

V ¿Vuelo? 

NF, NH Número de fallos; número de hombres. 
Mensaje. 

X, Y Coordenadas del hombre. 

NR P Número de pantalla; puntuación. 

XL Yl Coordenadas iniciales. 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



Inicialización 



5 
6 

7 
10 



15 

20 
25 

26 

30 

40 
50 



REM EJECUTA EL PROGRAMA 
REM SOPORTE EN CODIGO , 
REM MAQUINA 

SCREEN 1,2: KEY OFF: CLS: PRI 
NT TABÍ7) "ACRQBATA^AEREO": FR 
INT: PRINT: PRINT 
FOR 1=1 TO S: READ A$=A$+ 
CHRÍÍQ): NEXT: SPRITE$ (O) =a$: 
A$=" " 

FOR 1=1 TO 32: READ Q: A$=A$+ 
CHR$(Q): NEXT: SPRITE* ( 1 ) =A$ 
FOR 1=1038 TO 1095; READ Q: V 
PGKE I,Q: NEXT: FOR 1=1152 TG 
1191: READ Q: VPOKE 1,(3: NEXT 
FOR 1 = 1216 TG 122.3: READ Q: V 
POKE I,G!: NEXT: FÜR 1 = 1280 TO 
1287: READ Q: VPOKE r,Q : 
NEXT 

DEFUSR=60118!: POKE 59997 !, 1 : 

PGKE 59998 ! , 1 

ON STRIG GQSUB 900 

NH=3: P=100 
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60 

65 
70 

75 
90 



95 



PRINT"Nivel^de^di-f icultad„{l- 
4)?"; 

K$=INKEY$: IF K$="" THEN 65 
ND=VAL(K$): IF ND<1 OR ND>4 
THEN 65 ELSE PRINT ND 
POKE 59999 !,ND 

FOR 1=1 TO 5: PRINT: NEXT: PR 
I NT "PULSA„UNA„TECLA„PARA„EMPE 
ZAR" 

IF INKEY$="" THEN 95 



Nuevo juego 



100 STRIG(O) ON: CLS: COLOR 1.5,5 

105 IF NH=0 THEN 600 

110 FOR 1=6816 TO 6847: VPOKE I, 

23: NEXT 

115 PR I NT : PRINT" ^„_^„ " CHR$ (160) 

^„^_^^^"CHR$íl60) 

: PRINT: PRINT: FRU=iT''„„„ i 

^„"CHR$ (160) : PRINT"^"CHR 

$(160) ! ": PRINT"^^^^^! ! 

! ": PRINT"_^„! 111" 

120 PRINT"^^! ! ! ! ": PRÍMT"_! ! ! 1 ": 

PRINT"^ 1 !!!!": PRINT" !!!!!": 

PRINT"! ! ! ^"CHR* í 146) CHR 

$ ( 146) CHR$ (146) CHRÍ í 146) 
CHR$ ( 148) CHR$ (143) CHR$ ( 148) CH 
R$(14B)CHR$(14S) 

125 PRINT"! ! ! „^ "CHRÍ- (1 44) CHR$ 

( 136 ) CHRÍ- í 1 36 ) CHRÍ ( 1 36 ) CHR$ í 
13á)CHR$íl45) 

127 PRINT"^^"CHR$(147>CHR$(14e)CH 
R$ ( 147) CHR$ ( 147) CHR* (147) CHRÍ 
(148) :PRINT" i ! 1 ^^^^^"CHRÍ ( 1 44 
) CHR$ (136) CHRÍ- (136) CHRÍ- í 1 36 ) C 
HR$ (152) CHRÍ ( 136) CHRÍ ( 136) CHR 
$(136)CHRí (145) ; 

129 PRINT" "CHRÍf 147) CHRÍ (148) 

„"CHRÍ (147)CHRÍ<i48) :PRINT" ! ! 

,„"CHRÍ(144); : FDR 1=1 TO 

9: PRINT CHRÍ (136);: NEXT: PR 



i 
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130 



140 

150 
160 



200 

205 



210 
220 
230 
240 
250 

260 

270 
280 



300 

310 
320 



INT CHR*(i45)"_"CHRÍ(147)CHR 
$(148) 

PRINT"„„„_^„!^„__„, 

FOR 1=1 TO 5: PRINT CHR* ( 
147);: NEXT: PRINT : PRINT"^„ 

PRINT; PRIN 
T: PRINT: PRINT "!!!!!>"; CHR 
$(11) ; 

VV=5: V=0: T=0: NF=0: GüSUB 

1000 

PUT SPRITE 1,(255,40),! 
VPüKE 8194,229: VPOKE 8209, 
165: VPQKe' 8210,229: VPOKE' 
8211,149: VPOKE 8212, 197 



Control 



D=USR(D? 

IF VPEEK(6917) X255-ND) THEN 
VPOKE 6916, INT ÍRNDíl)*85): P= 
P-10: GOSUB 1000 
IF V=0 THEN 200 
BOSUB 300 

IF X<5 OR X>250 THEN 550 
IF Y<105 THEN 200 
IF X>85 AND X<140 THEN 60SUB 
350: EOTÜ 200 

IF X>160 AND X<210 THEN GOSUB 
450: GOTO 200 
IF X<30 THEN 400 
GOSUB 500: GOTO 200 



lovimiento del acróbata 



Xv=3+ND/3í f1=50 

T=T+1: X=VV*T*T/M-XV*T+XI: Y= 

4.9*T*T/M+YI 

X=INT(X): Y=INTíY); A$-="n"-f-ST 
R$(N): IF T/3=IMT(T/3) THEN P 
LAY " M65086L5S 1 0 XA* í " : N=N- 1 
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325 IF X>255 THEN X=255 

327 IF X<0 THEN X=0 

330 PUT SPRITE O, ÍX,Y),10 

340 RETURN 



Acróbata en ei centro de la red 



350 IF X>105 AND X<117 THEN F=P+ 

200: M$="£stupendQ! !^^^ .^^ 

": PLAY"L8N50L8N45L2N50": GÜT 
O 360 

355 P=P+100: M$-"Buen salto! 

360 VV=INT(RNDÍ1)*10): GOSUB 1000 

: GOSUB 1300: V=0: T=0 
370 RETURN 



Acróbata en ios cables de alta tensión 



400 GOSUB 1200: CLS: f'R!NT"ftcroba 

ta„electracut5tío"; NH=NH-1: P 
UT SPRITE 0,(100,200): PUT SP 
RITE 1, (250,200) 

410 FOR TM=1 TO 3000= NEXT: P=P- 

100: GOTO 100 



Acróbata en la acera 



450 MÍ="Caiste^en„U_csrra^^^ 

P=P-50: PLAY"L54M12OOS10N74R2 
0N74" 

460 VV=INT(RND(1)*10) : GOSUB lOOO 

¡ v=0: T=0: NF=NF+1: GOSUB 

1300 

470 IF NF>2 THEN 700 

480 RETURN 



o 
o 
o 
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o 
o 
o 



500 

510 

520 
530 



550 



560 



570 



600 

610 
620 

630 



700 



710 



Acróbata en el suelo 



M*="AYl-Intentalo„otra^vez„ 

J'i P=P-30: NF=NF+1: PLAY"L2N 
7" 

W=INT(RND(U*10) : GüSUB 1000 
: GÜBUB 1300: V=0: T=0 
IF NF>2 THEN 700 
RETURN 



Acróbata fuera de límites 



GOSUB 1200: CLS: FRIMT"EI„acr 

obata„cayQ^en": PRINT"un^pant 

anQ^lejQs„del„bl anco" 

PUT SPRITE 0,(200,200): PUT S 

FRITE 1,(200,200): FOR TM=1 

Tü 3000: NEXT 

NH=NH-1: GOTO 100 



Fin de juego 



CLS: PRINT TABÍ6) " FIN^DEL„J 

UEGD": PRINT: PRIMT: PRINT 

FRINT"Tus^puntQs„5Qn";P 

PUT SPRITE 1,(100,200): PUT B 

PRITE 0, (100,200) 

END 



Acróbata dado de baja 



V=l: CLS: PRirJT"Dsma5ÍñdQS„ñc 
cidentes": PRINT" Acrobata^dad 
o„de„baja" 

PUT SPRITE 0,(200,200): PUT S 
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o 

o 

o 

o 

o 



720 



900 
910 



920 



1000 
1010 

1020 



1200 



1250 



1300 



PRITE 1, (200,200) :NH=NH-1: 
FÜR TM=1 Tü 3000: NEXT 
GOTO 100 



Espacio pulsado 



IF V=l THEN RETURN 
Kl=VPEEKÍé916) : K2=VPEEK' (691 7 
): PUT SPRITE 0, (K2, Kl ) , 10: 
V=l: T=0: M$=" JERON IMOQOOO I ! ^ 

GOSUB 1300 
YI=K1: XI=K2: N=50; RETURN 



Puntuación 



FOR 1=1 TO 22: PRIUT: NEXT: P 
R I NT " y . d e 1 _v i en t o " ; VV ; TAB ( 1 3 
) ; "PuntuacÍQn";Fí CHRÍÍU);: 
F=l 

FOR J=Ó895 Tü 6910: VFOKE J, 

32: WEXT 

RETURN 



Acróbata muerto 



CLS : PLAY " 1 9m 1 OOOs L 4n33n33n33 
n33n33n33n33n33n33n33": FüR I 
15 Tü 1 BTEP -1: FGR T=l TO 
100: NEXT: COLOR 15,1,1: NEXT 
RETURN 



Mensaje 



PRINT CHR*(U)í: FOR I=i TO 
22: PRINT: NEXT: FOR 1=1 TO 
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1310 



13: PRINT CHRt(28)í: NEXT 
PRINT Mt; CHRt(ll);: RETURN 



10000 
10010 



10020 

1 0030 
10040 

1 0050 
1 0060 
10070 

10030 
10090 



Datos de sprites 



DATA 153,255,60,24,60,36,102, 
195 

DATA 0,0,0,112,120,60,30,127, 
255,255, 127, 1,0,0,0,0,0,0,0,4 
, 1 4 . 30 , 62 , 254 , 255 , 255 , 254 , 254 
,240, 120,60,28 



Datos de sprites pequeños 



DATA 170,85,170,85,170,85,170 
,85 

DATA 1,2,4,10,17,3-4,85,138 
DATA 128,64,32,80, 136.68. 170, 
81 

DATA 0,0,0,0,0,0,2'35.36 
DATA 56, 56, 56, 56, 56, 56, 56, 56 
DATA 16,56,56,56,56,56,56,56 
DATA 24,60, 126, 126, 126,60,24, 
O 

DATA 16,50,84,186,84,186,84, 
16 



Tabla de claves 







0 


40 




SÓ4 


105 




888 


6 




0 


50 




924 


110 




1768 


7 




0 


60 




3607 


115 




21992 


10 




4528 


65 




1572 


120 




15002 


15 




4011 


70 




3295 


125 




6068 


20 




3483 


75 




857 


127 




15547 


25 




4334 


90 




5592 


129 




15158 


26 




4304 


95 




1034 


130 




1Ó5S3 


30 




2571 


100 




1329 


140 




2283 



188 



150 




975 


37ñ 


160 




2990 


400 


200 


_ 


691 


410 


205 





5225 


450 


210 





937 


460 


220 


_ 


207 




230 


_ 


1634 


480 


240 




1043 


500 


250 





2529 


510 


260 





2797 




270 




916 




280 




1069 


550 


300 





1562 


SAO 


310 





5721 


S70 


320 


_ 


8191 




325 


_ 


1564 


610 


327 


_ 


1074 


620 


330 





832 


630 


340 





143 


700 


350 




9578 


710 


355 




3975 


720 


360 




3389 


900 



Diseño de los sprites 




AVION 



1 43 


Q 1 Ct 




7 / O-wJ 


833S 








2720 


1 000 




6994 


7268 


1 1 A 






4454 


1 020 




1 43 


985 


1 ^0ñ 


_ 


R0n9 


143 


1 250 


_ 


143 


7839 


1 300 




39 6 S 


3389 


1310 




1111 
1111 


985 






1 630 


143 






/ OiJO 








1 Aiñ 




1 0030 




1 9R9 

1 T 


1 OH / 


1 0040 








10050 




1 0R4 










2397 


1 0070 




1 4.70 


i "79 


Jh V o V 




1516 


7380 


10090 




1525 


5142 








489 


TGTAL= 


321372 



851 





Naves secretas 20 
de investigación 




[ ipo de juego: 

JUEGO DE TIRO AL BLANCO 



Los espías del planeta Circón han robado la fórmuia de un componente valioso. El 
juego consiste en poner agentes de contraespionaje en pequeñas naves que aterricen en 
lugares especiales del planeta para que la fórmula pueda ser recuperada. 

Debes depositar tantas naves como puedas sin rebasar el límite del tiempo, y evitar que 
la nave nodriza choque con las enemigas. 

Se utiliza una subrutina en código máquina para animar la pantalla. 
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SUGERENCIAS AL PROGRAMA 



Para alterar la velocidad, modificar las lineas: 

Nave nodriza línea 45 

Movimiento de pantalla linea 16^ 

puedes cambiar también el límite del tiempo — TL en la línea 16^—, para cambiar la 
duración del juego. 

Una modificación más ambiciosa podría consistir en añadir una nave enemiga, con la 
que se debe evitar chocar; sería un auténtico reto; lo puedes hac«r en las líneas 3PP a 
320. 



Variables del programa 

LN Localización de la nave. 

P Puntuación. 

TL Tiempo limite. 

FJ Final del juego (0, 1, 2). 



O 

o 
o 
o 

o 
o 
o 
o 
o 



Inicialización 



10 
11 
15 



20 

25 
30 
35 

40 

45 



REM EJECUTA EL. SOPORTE 
REM EN CODIBO MAQUINA 
SCREEN 1,3:K:EY ÜFF: FRINT TAB 
<5) "NAVES^SECRETñS^DE": PRIN 
T TABÍ7) "INVESTISACIQN": FDR 
1=1 TO 12: PRINT: NEXT 
FÜR 1=1 Tü 32: READ Q; A$=A$+ 
CHRí(G) : NEXT: BPRITEÍ f 9) =A$ 
: Aí=" " 
FDR 1=1 
CHRÍíQ) : 
FÜR 1=1072 
VPGKE I,Q: 



TO S : READ Q: A$=A$+ 
: NEXT :SFRITE$Í1)=A$ 
TG 1231 : READ Q : 
NEXT 

READ 



POR 1= 60350! TD ¿0401 
O : POKE I,G: NEXT 
PÜKE 603461,224: PGKE ¿0347! 
24 : PQKE 60348 í , 255 : POKE 
60349 ! , 26 : DEFUSR2 - 60350 ! 
PÜKE 59999!, 4 : PQKE 59996!, 
15 :DEFUSR = 60€?00 ! 



O 

o 
o 
o 
o 
o 
o 
o 
o 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



50 



55 



100 



105 



110 



115 



116 



120 



125 



RUT SPRITE e, (112,55) , 11 : PR 
INT "PULSA„UNA^TECLA^PARA„EMP 
EZAR" 

IF INKEY$ = THEM D=USR2(D) 
: FÜR 1=1 Tü 50: NEXT: D=RND 
í 1) : GÜTO 55 



Preparación pantalla 



126 



COLÜR 15,1,1:CLS:VP0KE 8208, 
145:VP0KE 8209, 145: VFOKE 8210 
,145: RUT SPRITE 0,(114,80), 
11 

VPÜKE 6753,137: VPOKE 6768, 
144: VPÜKE 6769,14.5: VPÜKE 
6773, 134 

VPÜKE 6784,136: VFDK.E 6785, 
134; VPGKE 6786,138: VPOKE 
6787, 13¿: VPÜKE é799,ÍZ9t VPÜ 
KE óS©S|134f VPOKE ¿2*^1,134! 
VPDKE 6802,141: VPOKE 6805, 
134: VPOKE 6813.144: VPOKE 
6814,145 

VPOKE 6817,134: VPOKE 6819, 
137; VPOK.e' 6820, 140: VFOKE 
6822,136: VPÜKE 6823,148: VPO 
KE 6824,149: VPGKE ¿825,148: 
VPOKE 6826, 149 
VPOKE 6827,138: VPGKE 6829, 
137: VPOKE 6830,140: VPOKE 
6832,142: VPOKE 6833, 143: VPO 
KE 6837,134: VPOKE ¿838,136 
VPDKE 6839,148: VPOKE 6340, 
149: VPÜKE 6841, 14S: VPDKE 
6842,149: VP 

VPOKE 6849,134: VPOKE ¿850, 
139: VFOKE 6851, 134: VFOKE 
6852,134: VPGKE ¿853,141: VPO 
KE 6855,150: VPOKE 6856,151: 
VPÜKE 6857, 150 
VPOKE 6858,151: VFOKE 6860, 
139: VPOKE 6861, 134: VPOKE 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



193 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



130 



135 



136 



140 



145 

150 
155 

160 

170 

175 



200 

202 



210 
220 
290 



6862,134: VPOKE 6363, 14 1 : VPO 
KE 6864,134: VPOKE 6865,134 
V'PDKE 6866,144: VFOKE 6867, 
145: VPOKE 6869, 134: VPDKE' 
6871,150: VPOKE 6872,151: VPO 
KE 6873,150: VPOKE 6874,151: 
V'PDKE 6877, 144: VPGKE 6378,145 
VPOKE 6881,134: VPOKE 6883. 
142: VPOKE 6884, 143: VPOKE" 
6887,150: VPOKE 6888.151: VPO 
KE 6889,150: VPOKE 6890,151: 
VPOKE 6392, 139 
VPOKE 6893,134: VPOKE 6B94. 
134: VPOKE 6895,141: VPOKE 
6896,134: VPOKE 6897, 134 
VPOKE 6898,142: VPOKE 6899, 
143: VPOKE 6901, 134: VPOKE 
6903,150: VPOKE 6904,151: VPO 
KE 6905,150: VPOKE 6906.151: 
VPOKE 6909, 146: VPOKE 6910,147 
POR 1= 6176 Tü 6367: IF RND ( 1 
X.2 THEN VPOKE I, 153 
NEXT 

60SUB 1000: PUT SPRITE 1,Í255 

,100), 13 

TIME = 0: ON INTERV!qL= ly OOS 
UB 500: INTERVAL Or^: TL=10O 
STRIG(0) ÜN:ON ETRIG S03UB 

700 

SPRITE ON: DN SPRITE GOSÜB 

600 




D=USR(D): IF VPEEK (6912)>136 
THEN FJ=1: GOTO 900 
X=VPEEKÍ6913) : IF X<57 THEN P 
QKE 59996!, 13 ELSE IF X>134 
THEN POKE 59996 ! , 7 ELSE POKE 
59996! , 15 
60SUB 300 

IF LNO0 THEN GOSUB 400 
GOTO 200 
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300 

310 
320 



Movimiento nave enemiga 



SPRITE OFF: IF VPEEK (6917X9 
THEN VPOKE 691 6 , INT (RND í 1) # 
128+24): VPOKE 6917,255 
SPRITE ON : VPOKE 6917.VPEEKÍ 
6917)-7 
RETURN 



Movimiento nave investigación 



400 INTERVAL OFF: STRIE(0) OFF: K 
=VPEEK(LN+32) :. INTERVAL ON 

401 IF K=14S OR K=149 THEM VPOKE 
8208.241: VPGKE 8207,241: VPO 
KE 8210,241: P=P-!- 1 e T PLAY "81 
M2000L14N50N45"; GOSÜB 1000: V 
POKE LN,32: LN=0í VPOKE 8208, 
145:TH=1 

402 IF TH=1 THEN VPGKE 8209,145: 
VPOKE 8210,145: STRIGÍ0) ON: 
TH=0: RETURN 

410 IF K= 32 THEN LN=LN+32: VPOKE 

LN,152: VPOKE LN-32,32: STRIG 
(0) ON: RETURN 



Estampido 



450 VPOKE LN,135: POR 1==! TO 100: 

NEXT: P=P-10: GOSUB 1000: VPO 
KE LN,32: LN=0: BTR!G(0) ON: 
RETURN 



Movimiento de pantalla 



500 D=USR2(D): IF TinE/60 >TL THE 

N 900 
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505 
510 



IF LNO0 THEW LN=LN-1 
RETURN 



600 



610 



700 

710 



740 



900 
910 
920 
930 
940 

990 



Choque 



INTERVAL OFF: STRIGÍí*) OFF: F 
OR 1= 1 TO 20: COLGR 15,1,1:F' 
LAY"164sem20000n21nl2": COLOR 
1,15,15: NEXT 
Fj=2: GOTO 900 



Dejar nave investigación 



IF LNO0 THEN RETURN 

I3=INT ( ÍVPEEK<6913)+20) /8) : L 

N=6144+32*INT C ( í VPEEK (6912) + 

20)/8))+I3: IF LN<63¿.S THEN 

LN==0 

RETURN 



Fin de juego 



COLOR 15,4.7! SCREEN 1: PRINT 

"TUS^PUNTDS^SDN" : P 

PRINT: PRINT: PRINT: ON (FJ+1 

) GOTO 920,930,940 

PRINT "__TU„TIEMPD„SE^ñCABO 

GOTO 990 

PR I NT "„^CDL I S I DNO J^A^NAVE^NO 

DRIZA": GOTO 990 

PRINT "„„LA„NAVE„NODRI¿A„CHaC 

0„CON^^„^„. UNA^NAVE^ENEM I GA 

II 

IF INKEY$="" THEN END ELSE 
990 
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Puntuación 



1000 PRINT "PUNTUACION; "iPíCHRÍ (11 
) ; 

1010 RETURN 



Datos de sprites 



10000 DATA 3,4,15,31,63,64.255,213, 
255,213,255,63,31,0,0. 0, 192, 
32,240,248,252,2,255,85,255, 
85,255,252,248,0,0,0 

10010 DATA 160,160,64^160,160,0,0,0 



Datos de sprites pequeños 



10100 DATA 255 , 255 , 255 , 255 , 255 , 255 , 
255,255 

10102 DATA 68, 16, 130,40,84, 130, 16, 
68 

10104 DATA 192,48, 12,3,0,0,0,0 
10106 DATA 0,0,0,0, 15,31,63, 127 
10108 DATA 3,12,48,192,0,0,0,0 
10110 DATA 1,3,7,15,15,7,3,1 
10112 DATA 0,0,0,0,240,248=2523 254 
10114 DATA 128, 192, 224, 240,240, 224, 
192, 128 

10116 DATA 255, 127,63,31,31,32,64, 
128 

10118 DATA 255,254,252,245,248, 4,2, 
1 

10120 DATA 0,0,0,0,3, 15,63,255 
10122 DATA 0,0,0,0,192,240,252,255 
10124 DATA 255,63, 15,3,0,0,0,0 
10126 DATA 255,252,240, 192,0,0,0,0 
10128 DATA 0,0,0,0,255,24,31,24 
10130 DATA 0,0,0,0,255,24,248,24 



o I 
o 
o 
o 
o 
o 
o 
o 



10132 
10134 

10136 

10138 



10200 



10202 



DATA 24,24,31,24,24,31,24,24 
DATA 24,24,248,24,24.246,24, 
24 

DATA 16,16,40,40,56,124,254, 
130 

DATA 0,0,0,32,0, O, 0,fj 



Datos de código máquina 



DATA 6,31,42,186,235,43,35, 
205,27,235, 120,254,31,202,215 
,235,4,43,205,44,235 

DATA 35,195,227,235,6,0,17,31 

, 0, 25, 205, 44, 235, 183, 237, B2, 
237,91, 188,235, 123, 169, 194, ' 
196,235, 122, 1S8, 194, 196,235, 
201 



Tabla de claves 



10 




0 


130 




8073 


401 




9490 


11 




0 


135 




2116 


402 




3373 


15 




6597 


136 




4057 


410 




4114 


20 




3995 


140 




1341 


450 




5193 


25 




3499 


145 




2900 


500 




2295 


30 




2011 


150 




131 


505 




1861 


35 




2217 


155 




1576 


510 




143 


40 




4607 


160 




41B7 


600 




5947 


45 




2521 


170 




1684 


610 




1010 


50 




3770 


175 




1014 


700 




1167 


55 




4291 


200 




3266 


710 




7605 


100 




3435 


202 




5778 


740 




143 


105 




2878 


210 




207 


900 




2657 


110 




3089 


220 




1346 


910 




2485 


115 




6750 


290 




593 


920 




4303 


116 




3841 


300 




4717 


930 




4556 


120 




5615 


310 




1556 


940 




8904 


125 




6826 


320 




143 


990 




1529 


126 




5859 


400 




4705 


1000 




1940 



198 



1010 


— 


143 


101 12 


— 


1386 


10130 




1274 


10000 




8092 


10114 


= 


1888 


10132 


= 


1398 


10010 




1463 


10116 




1563 


10134 




1523 


10100 


— 


1B8S 


101 18 




1541 


10136 




1568 


10102 


— 


1514 


10120 




1136 


10138 




974 


10104 


— 


1 156 


10122 




1378 


10200 




4681 


10106 




1195 


10124 




1147 


10202 




9394 


10108 




1149 


10126 




1410 








10110 




1035 


10128 




1213 


TDTAL= 


241020 



Diseño de los sprites 





Cross 
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Tipo de juego: 

JUEGO DE SIMULACION 



Este es un juego para corredores entusiastas. 

Consigue tu mejor marca personal en los mil metros obstáculos. Para saltar los hoyos 
pulsa la barra espadadora, y ias fiechas para controlar tu velocidad; pero ten cuidado de que 
no te dé el rayo. 

Se usa una subrutina en código máquina para desplazar la pantalla. 
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SUGERENCIAS AL PROGRAMA 

Si no estas satisfecho con e! suelo o con las nubes, modifica la rutina que da movi- 
miento a !a pantalla en las lineas 10^) a ]9p. 

También se puede cambiar la velocidad usual en la linea 90 (para mover al hombre 
más lejos] y en la linea 180 (para acelerar el movimiento de pantalla). 



Variables del programa 

S Salto. 

DR Distancia recorrida. 

CJ Columna del jugador, 

FJ Final del juego. 

DL Destellos de luz. 

ND Nivel de dificultad. 



O 

o 
o 
o 

o 
o 
o 
o 
o 
o 



5 

6 
7 

10 



20 



25 



30 



Inicialización 



REM EJECUTA EL CQDIEO 

REM MAQUINA SOPORTE 

REM DEL PROGRAMA 

KEY QFfi COLOR 15, ■í, 7: SCREEN 

1,3: FÜR 1=1 TO 32: READ D: 

AÍ-=A$+CHR$ÍQ) : NEXT- BPRITEÍ- 

(0)=A$: A$="" 

FQR 1=1 TO 32: READ Q: AÍ=A$+ 
pLjp^. f Q) ; ^^EXT: SPRITEÍ í i ) =A$: 
A$-"" 

POR I-l TO 32; READ Q: A$-AÍ+ 
CHRÍÍQ): NEXT; SPRI TE$ í2) =A$: 
A$="" 

POR 1=1 TO 32: READ AÍ=A$+ 
CHRÍ(O): NEXT: SPRITEÍ (3) =A$ 
POR 1=60350! TO ¿0401!: READ 
Q: POKE r,Q: ^4EXT: DEPUSR2= 
60350!: POKE 60346 ',05 PDKt 
60347!, 24: POKE 603461,223: 
POKE 6034V! ,25 
POR I=ÍÓ72 TO 12Í5: READ Q: 
VPOKE 1,0: NEXT 
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50 POR 1=1 TO 11: PRINT : NEXT: 

PRINT TAB(ll) "CR033" 

55 DEFUSR=6OO0O! : DEFUSR1=601 18 í 

: POKE 599991,1: POKE 59996!, 
10: POKE 59997! ,0: POKE 59998! 
, 3 

60 RUT SPRITE O, (0,55), 1 

65 IF INKEY$="" THEN IP VPEEK ( 

6914) =0 THEN VPOKE 6914,4 ELS 
E VPOKE 6914,0 ELSE GQTO SO 

70 D=USR1(D): BOTO 65 

80 PRINT: PRINT: INPUT"Ni vel„de^ 

dif icultad„(l-3) " ; ND 

85 IP ND<1 OR ND>3 THEN 80 

90 POKE 59999 !,ND+2 



Preparación pantalla 



100 



105 



110 



115 
120 



PUT BPRITE 0,(100,200): CLS: 
POR 1=6609 TO 6879: VPOKE I, 
134: NEXT 

VPOKE 6592,134: VPOKE 6593, 
134: VPOKE 6594,134: VPOKE 
6595,139: VPOKE' 6596, 138: POR 
1=6597 TO 6606: VPOKE 1,134: 
NEXT: VPOKE 6607,139: VPOKE 
6609, 138 

VPOKE 6560, 135: VPOKE 6561,135 
: VPOKE 6562,136: VPOKE 6563, 
137: POR 1=6565 TO ¿574: VPOKE 
1,135: NEXT: VPOKE 6575,137: 
FOR 1=6578 TO 6586: VPOKEI , 135 
:NEXT:VPOKE 6587, 136: VPOKE 
6588,137: VPOKE 6589, 138 
VPOKE 6590,135: VPOKE 6591, 
135 

VPOKE 6152,142: POR 1=6153 TO 
Ó163: VPOKE 1,140: NEXT: VPOK 
E 6164,146; VPOKE ¿155.142: F 
OR 1=6186 TO 6192: VPOKE I, 
140: NEXT: VPOKE 6193,144: VR 
OKE 6194,144: VPOKE 6195,145 
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125 



130 



135 



140 



145 



150 



151 
155 



170 
180 

185 



VPOKE 6209, 150: POR 1=6210 TO 
6215:VPÜKE I , 149: NEXT: VPOKE 
6216, 147: VPOKE Ó21S,143:FDR I 
=Ó219 TÜ 6223: VPOKE 1,140: IME 
XT:VPOKE 0224,146: VPOKE 6233 
,150: VPOKE 6234, 1 4?: VF0KE6235 
, 149: VPOKE 6236, 147 
VPDK.E6240, 141 : FQRI=A241T06243 
iVPOKE I, 140:NEXT: VPOKE 6249, 
148: VPOKE 6256, 147: VPOKE 6251 
, 143: VPOKE 6252, 144: VP0KE6253 
,144:VPÜKE 6254, 14: VPOKE 6255 
,15: VPOKE 6259, 150: POR 1=6260 
TO 6263: VPOKE 1,151: NE 
VPOKE 6264,151: POR I=ó265 TO 
6268: VPOKE 1,140: NEXT: 
VPOKE 6269, 148 

VPOKE 6272,142: FOR 1=6273 TO 
6283: VPOKE 1,140: NEXT: VPOK 
E 6284,148: VPOKE 6290,141: 
FOR 1=6291 TO 6301: VPOKE I, 
140: NEXT: VFCKE 6302,148 
VPOKE 6305, 142: FOR 1=6306 TO 
6315: VPOKE I , 140: NEXT: VPOKE 
63 1 6 , 1 46 : VPOKE 6322 .141: FOR I 
=6323 TO 6327: VPOKE I,140:NEX 
T: VPOKE 6328, 146: VPOKE 6329, 
143: FOR 1=6330 TO 6334: VPOK 
E I, 140: NEXT 

VPOKE 6338, 143: FOR 1=6339 TO 
6346:VP0KE I, 144 : NEXT: VPOKE 
6347, 145: VPOKE 6354,142:F0R I 
=6355 TO 6358: VPOKE ' I, 140: NE 
XT: VPOKE 6359, 146: VPOKE 6362, 
143: VPOKE 6363, 144: VPOKE 6364 
, 144: VPOKE 6365, 144 
VPOKE 6390,145 
VPOKE 6387,143: VPOKE 6388, 
144: VPOKE 6389,144: VPOKE 
6390, 145 

PUT SPRITE O, (154,72) 
INTERVñL ON: ON INTERVftL=15-2 
*ND 60SUB 500 

SPRITE ON: ON SPRITE GOSUB 
800 



O 
O 
O 
O 
O 
O 

O 

o 
o 
o 
o 

O 
O 
O 
O 
O 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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STRIG(O) ON: 
700: TIME=0 



ON STRIG GOSUB 



200 



205 



210 

220 
230 
240 
290 



300 
305 



320 
330 

350 



500 
510 
515 
520 

530 




D=USR (D) : K=INT ( (VPEEK (6913) + 
8Í/8): IF K"CJ>0 THEN DR=DR+8 
*(K-CJ) 

CJ=K: IF VPEEKÍ6560+CJ)<:>135 
AND S=0 AND CJ032 THEN GOSUB 
ÓOO 

IF SOO THEN S=S+1: IF £=10-2 
*ND THEN S=0; VPOKE 6914, O 
GOSUB 1000 

IF RND(1)<.07 THEN GOSUB 300 
IF DLOO THEN BOSUB 320 
GOTO 200 




IF DLOO THEN RETURN 

PUT SPRITE 3, (INT(RND(11»255Í 

,50), 11: DL=Í: PLAY"12fn200Osl 

0n45": RETURN 

DL=DL+1 

IF DL=5 THEN PUT SPRITE 3, ( 
100, 200), 11: DL=0: RETURN 
RETURN 



Movimiento de pantalla 



D=USR2(D) 
DR=DR + 1 

IF SOO THEN RETURN 
STRIG(O) GFF: I 1=VPEEK (6914) 
IF 11=4 THEN 11=0 ELSE 11=4 
VPOKE 6914,11: STRIG (0) ON: 
RETURN 
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600 



610 



620 



700 

710 



800 



810 



900 



Corredor en un bache 



SFRITE OFF: INTERVAL OFF: STR 
IGÍ0) OFF:VPOKE 6914,8: VFDKE 
69 1 2, 94 : PLAY " 1 2m400y0s8n4 " : 
FÜR 12=1 TO 1500: NEXT: VFÜKE 
6912,72: VPOP^E 6914,0 
VPÜKE 6913, ';VFEEia6913)+l) 
MOD 255: CJ=INT ÍCVFEEK C6913} + 
8)/8): IF VPEEK(65Ó0+CJ)<>135 
THEN 610 

SPRITE ON: INTERVAL ON: STRIG 
(0) ON: RETURN 



Salto 



IF S<>0 THEN RETURN 

S=l: VPDKE 6914,3: RETURN 



Corredor fulminado por un rayo 



INTERVAL OFF: POR 1=1 TQ 20: 
PLAY"164me00sl4n50": FOR T=2 
TO 50: NEXT: COLOR 15,1,1: 
FÜR T=l TO 50: NEXT: COLOR 15 
,4,7: NEXT 



Fin de juego 



CLS: IF FJ=1 THEN PRINT"Te^ha 
s^electracutadQ. PRINT: PRI 
NT"Distancia: ";DR; "metros^en " 
: PRINT USING"ítíííi##.##";TIME/ 
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60;: PRINT"^segundos. GOTO 
990 

910 PRrNT"Se„acaba^ls_ca.rrer8.. ": 

PRINT: PRINT"Tü.^tiefnpo„f ue"; : 
PRINT USINS"#####.tt#"; TIME/ 
60 ; PRINT"^segundQS. " 

990 IF INKEY$<>"" THEN END ELSE 

990 



Distancia recorrida 



1000 FOR 1=1 TO 23: PRINT: NEXT: P 
RINT"Dietancia.: DRíCHRÍ ( 11) ; 
1010 IF DRM000 THEN 900 
1020 RETURN 



Datos de sprites 



10000 DATA 1,3,3, 1,7, 1 1, 19, 11,7,3, 
195,70,44,24,0,0, L2S, i92, 192, 
128, 192, 196,232,203, 192, 192, 
96,48,24, 16,32,96 

10010 DATA 1,3,3. 1,3,3,3.3,3,3, 1, 1, 
1,2,4,2, 128, 192, 192, 128, 192, 
192,240, 192, 192, 128, 128, 128, 
128, 128, 128, 192 

10020 DATA 33, 19, 1 1 , 5, 3, 3. 3, 3, 3, 131 
,255,0,0,0,0,0, 132,200,203, 
160, 192, 192, 192, 192, 192, 193, 
255,0,0,0,0,0 

10030 DATA 6,12,24,43,12,3,050,0,0, 
0,0,0, 1,3,6,0,0,0,0,0,0, 192, 
48, 12,24.48,96, 192, 128,0,0 



Datos de código máquina 



10100 DATA 6,31,42, 186,235,43,35, 

205. 27. 235. 120. 254. 31 , 202, 215 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



, 235, 4, 43, 205, 44, 235, 35, 195, 
227,235,6,0, 17,31,0,25,205,44 
,235, 183,237,82,237,91, 188, 
235, 123, 189, 194, 196,235, 122, 
188,194,196,235,201 



Datos de spriles pequeños 



10200 DATA 255,255,255,255,255,255, 
255,255 

10202 DATA 0,170,255,255,255,255, 
255,255 

10204 DATA 0,192,225,227,243,247, 
247,255 

10206 DATA 0.0, 128, 192, 192,224,224, 
240 

10208 DATA 0,2,3,3,7,7,7,15 
10210 DATA 240,240,248,248,252,252, 
254,255 

10212 DATA 170,85,170,85,170,85,170 
,85 

10214 DATA 1,5,10,13,21,26,13,21 
10216 DATA 10,21, 10, Í3,6. 10,5,2 
10218 DATA 170,85, 106,53, 10,0,0,0 
10220 DATA 170,85, 170,205, 134,0, 0,0 
10222 DATA 85,170,84,172,80,0,0,0 
10224 DATA 85, 170,86, 163,34, 166,30, 
160 

10226 DATA 0,0,0, 160,80, 176,84, 170 
10228 DATA 123, 80, 160, 64, 168,80, 170 
,84 

10230 DATA 0, O, 140, 19S, 85, 170, 85, 
170 

10232 DATA 0,0,0,2,1,5,10,13 
10234 DATA 1,5,10,85,170,85,170,85 



Tabla de claves 



5 


= 0 


10 


= 5594 


25 


= 3481 


6 


^ 0 


15 


= 3996 


30 


= 7334 


7 


= 0 


20 


= 3997 


35 


= 1995 
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1 •_> 






OT / 


1 ft'Pñ 

X *J^\} 




1 ñ."^ 

X 






■jo-_>o 






1 «íDD 
i wJOT 


X V'i'V*-' 




7R07 


o».' 




7■^4 


i '+'3 




1 ''SH 






7SRA 






39^1 






J "O 


1 0020 




71 P'' 

/ X Oí;. 


7ñ 










1 1 SO 

I X O 7 


X •.'•3 o*.' 




S4S7 






3303 








X V,' X >,ívj 




71 ATS 


PS 

Di-í 




1 5AA 






Qf X 


X V ji. TL' f 




1 RPR 






1 1 ''■"S 

X X -_■ iJ 








X • ^ ^ 




1 77P 
i / / G 






-_J j::- / J 


35Cj 






1 fl7ñd 




1 TPñ 
X / oy 


í vu 




RA34 






7 1 A 


1 rt'^ñA 




1 A7S 


1 1 ñ 

i. i y 




X -_' D 


J X 




R 1 S 






o^s 


lis 
Lio 




1 3 A'? 


SIS 




X D / 


i «y ji. X *.' 




1 PP1 

X C/O X 


1 "ñ 
i 




PRdR 








1 

I I £- 




1 A40 








S"'"Cl 






1 y*:. 1 H 




1 ''AS 






4AA1 








X 1 O 




1 707 

X 








Al 0 




A9AR 


1 H 1 R 




1 331 


1 

1 *r»_' 






A9ñ 




•^si s 


X 1'j;.¿.V 




1 470 






S956 


700 




1 0B9 


1 07*77 




1 344 




_ 


51 


71 0 


_ 


939 


X ^' ^ ^ ^ 


I 


1 657 








ROO 


_ 


75A5 


1 097A 




1 393 








R1 0 






X vz.^o 




1 ASI 

X W^J X 






37R7 






1 'PñQ? 

1 jlVOi¿. 


X V i-oy 




1 S1 P 
X X □ 








7 X "y 




7-T7 1 
/ X 


1 fl''T;7 




1029 








wy 




1 777 


1 07"ÍA 




1399 


200 




6086 


1000 




3516 








205 




^677 


1010 




1190 


TOTAL= 


284505 


210 




3987 















Diseño de los sprites 
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Caseta de tiro 




Prueba tu puntería, ¡Cinco liros por sólo cien pesetas! 
Puntuación: 

Patos cercanos 20 pesetas. 
Patos centrales 50 pesetas. 
Pájaro loco 100 pesetas. 



SUGERENCIAS AL PROGRAMA 



Se puede hacer más difícil alcanzar a los pájaros modificando las lineas 7ip-75p y su 
velocidad se controla en la línea 350 (pájaros centrales) y la linea 4ip (cercanos). 
Intenta afiadir pájaros con distintos valores para dar más variedad. 



Variables del programa 

DR Dinero restante, 

NT Número de tiros (0-5). 

PH Pájaro herido (-1 si no está herido). 

Cl, C2 Espacio de tiempo entre los pájaros cercanos y centrales. 

D ¿Te queda dinero? 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



10 

11 

12 
15 



20 



25 



30 



35 



40 



45 



Inicíallzación 



REM EJECUTA EL PROGRAMA 
REM SGPGRTE EN C0DIÍ30 
REM MAQUINA 

SCREEN 1,2: COLOR 1,15,15: KE 
Y GFF: PRINT TñB (7) "CASETñ^DE 
^TIRG" 

FOR 1=1 TO 32: READ Q: A$=ñ$+ 
CHR$ÍQ): NEXT: SPRITE$ (0)=ñí 
: ñ$="" 

FOR 1=1 TO 32: READ Q; A$=A$+ 
CHR$(QÍ: NEXT: SPRITEÍ (l)=ñ$ 
: ñ$="" 

FOR 1=1 TO 32: READ □: A$=A$+ 
CHR$<Q): NEXT: SPRITEÍ í2)=A$ 
. A$="" 

FOR 1=1 TO 32: READ D: ñ$=A*+ 
CHRÍÍQ): NEXT: SPRITEÍ (3)=AÍ 
: A$="" 

FOR 1=1 TO 32: READ D: A$=A$+ 
CHR$(Q): NEXT: EPRITE$ (4)=A$ 
: A$="" 

FOR 1=1 TO 32: READ A$=A$+ 



CHRÍÍO) 



NEXT: SPRITEÍ (5)=At 
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50 FOR 1=1 TO 32: READ Q: At=AÍ+ 

CHRtíQ): NEXT: SPRITEÍ Í6)=AÍ 
. At="" 

55 FOR 1=1072 TO 1119: READ Q: V 

POKE I,Q: NEXT 
60 DEFUSR=60118! : POKE 59997 !, 2: 

POKE 59998 !,1: POKE 59999!, 5: 

PUT SPRITE 2, (255, 80), 4 
65 D=USR(D): IF INKEYíO"" THEN 

80 

70 D=RND<1): IF VPEEK (6922) =8 TH 

EN VPOKE 6922, 12 ELBE VPOKE 
6922,8 

75 FOR 1=1 TO 120: NEXT: GOTO 65 

80 PH=-1 



Preparación pantalla 



100 CLS: VPOKE 6922,8: PUT SPRITE 

2, (255,36) , 12: PUT SPRITE 3, ( 
140,36), 12: PUT SPRITE 0,(100 
,16), 8: PUT SPRITE 4, (O, 64), 4 
: PUT SPRITE 5, (115, 64), 4 

110 FOR 1=6145 TO 6206: VPOKE I, 

23: NEXT: FOR 1=6729 TO 6742: 
VPOKE 1,23: NEXT: FOR 1=6793 
TO 6806: VPOKE 1,23: NEXT 

115 FOR 1=6816 TO 6847; VPOKE I, 

139: NEXT: FOR I=649ó TO 6784 
STEP 32: FOR J=0 TO 7: VPOKE 
I+J,134: VPOKE I+J+24,i34: NE 
XT: NEXT 

120 VPOKE 6144,24; VPOKE 6728,24: 

VPOKE 6176,26: VPOKE 6792,26: 
VPOKE 6175,25: VPOKE 6743,25: 
VPOKE 6207,27: VPOKE 6807,27 

125 VPOKE 6760,22: VPOKE 6775,22: 

VPOKE 6703,135: VPOKE 6735, 
136: VPOKE 6767, 137 

130 STRIG(0) GN: ON STRIG GOSUB 

700 

140 GOSUB 800 
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200 

210 
220 
290 



300 



320 



335 
340 



350 

360 
370 



400 



Conirol 



GÜSUB 300: BÜSUE 350: GOSUB 
400 

IF FH>=e THEN SOBUB 450 

IF MD=1 THEN GÜSUB 800: MD=0 

GOTO 200 



Movimiento del pájaro ioco 



POKE 59999!, 7: POKE 59997 !,0: 

IF RNDdX.S THEN FOKE 59998 í 

,1 ELSE POKE 59998!, 3 

IF VPEEKÍ6913) >194 THEN POKE 

599981,1 ELSE IF VFEEKÍ6913X 

65 THEN POKE 59998!, 3 

D=USR(D) 

IF RNDÍ1X.5 THEN VPOKE 6914, 

4 ELSE VPOKE 6914,0 

RETURr4 



Movimiento de pájaros de perfil 



POKE 599991,13: POKE 59997 !, 2 
: Kl=VPEEKf6922) : VPQKE 6922, 
VPEEK<6926): VPOKE ¿926. Kl 
POKE 59998!.!: I}=üSRÍI>): POKE 
59997 1,3: D=USRÍD;' 
RETURN 



Movimiento de pájaros de frente 



C2=(C2+1) MOD 2: POfíE 59997 1, 
4: IF C2=0 THEN K1=VPEEK (6930 
); VPOKE 6930,VPEEK<t934) : VP 
OKE 6934, Kl 



Z14 



410 POKE 599991,4: POKE 59998!, 3: 

D=USR(D): POKE 599971,5: D=US 
R(D) 

430 RETURN 



Más pájaros 



450 

465 

470 
472 
475 
477 
480 
483 
465 
490 



500 



505 

508 
510 

512 
515 

517 
520 

522 
525 

527 
540 



ON CPH+n GQTQ 465,465,470, 
475.480,485 

PUT SPRITE 0,(100,16): SOTO 
490 

VPOKE 6922,8: VPOKE 6926,12 
GOTO 490 

VPOKE 6922, S: VFOK.E 6926,12 
GOTO 490 

VPOKE 6930,16: VPOKE 6934,20 
eOTO 490 

VPOKE 6930,16: VPOKE 6934,20 
PH--1: RETURN 



Pájaro derribado 



PLñY"L50M1200S10N74R30N74R30N 
7 4R30N74R30N7 4R5<5N74R30N7 4 " : 
ON (PH+1) GOTO 505,508,510, 
515,520,525 

DR=DR+1: VPOKE 6914,24: FOR 1 
2=1 TO 500: NEXT 
VPOKE 6914,0: GOTO 54$ 
DR=DR+.5: VPOKE 6922,24: FOR 
12=1 TO 500: NEXT 
VPOKE 6922,3: GOTO 540 
DR=DR+.5: VPOKE 6926,24: FOR 
12=1 TO 500: NEXT 
VPOKE 6926,12: GOTO 546 
DR=DR+.2: VPOKE 6930,24: POR 
12=1 TO 500: NEXT 
VPOKE 6930,16: GOTO 540 
VPOKE 6934,24: DR=DR^-.2: FOR 
12=1 TO 500: NEXT 
VPOKE 6934,20 
MD=1: STRIG(0) ON: RETURN 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



600 



620 



700 
710 
720 
730 
740 
750 
760 



800 
805 

807 
810 



Pájaro fallado 



BTRieíO) ON: yPOKE 6Í91,13S: 
FOR 11 = 1 TO J.00: NEXT: VPDKE 
6191,23 
IÍD=1: RETURN 



Disparo 



BTRIGÍ0) OFF: PLAY"L64M60S8N2 
7": NT=NT+1 

IF ABSÍVPEEK (6929) -114X3 THE 
N FH=4: GOTO 500 
IF ABS(VPEEKÍ6933) -114X3 THE 
N FH=5: GOIG 500 
IF ABS<VPEE[Í<6921) -114X3 THE 
N PH=2: GOTO SOO 
IF ABSÍVPEEK (6925) -U 4X3 THE 
N PH=3: GOTO 500 
IF ftBS<VPEEKC6913)-Í14X3 THE 
N PH=0: GOTO 500 
GOTO 600 



Dinero ganado/perdido 



IF DR>=0 THEN AÍ="TÍEne5:" EL 
SE A*="Debes: " 

IF DR<0 THEN I3=INTÍ-DR): 14= 
-(DR+I3) ELSE I3=IMT(DR): 14= 
DR-I3 

FOR 1=1 Tü 22: PRINT: NEXT: P 
RINT At;: PRINT USIN6"###" ; 13 
PRINT UBING".tt#";l4: PRINT 
CHRt (11); 

IF NT>4 THEN 850 ELSE RETURN 



¿Más disparos? 



850 



PL A Y " Ll OS 1 4M20OfíN3ON40N2ON27 " 
: STRIGÍO) OFF: FOR 1=1 TO 23 
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: PRINT : NEXT: PRINT "Sátiro 
sarnas? (B/N) CHR$ ( 11 > ; 
855 XÍ=INKEY*: IF Xí="" THEN 855 

ELBE IF XÍ<>"S" AND X$<>"s" A 
ND XÍ<>"N" AND X$<>"n" THEN 
55 

860 IF X*="N" OR X$="n" THEN 90© 

865 DR=DR-1: NT=0: GOSUB SOO 

870 FOR I=68B2 Tü 6910: VFÜKE I, 

32: NEXT: STRIGÍO) ON; RETURN 



Fin de juego 



900 BCREEN 1: IF DR<0 THEN PRINT" 

Debes:";; PRINT USING"###. ##" 

.;~DR: GÜTÜ 990 - 
920 PRINT "Has^gansdc: : PRINT U 

BING"##tf.##";DR: GOTO 990 
990 IF INKEYÍO"" THEN END ELSE 

990 



Datos de sprites 



10000 DATA 128,64,96,56,23, 13,7,3, 1 
, 2,0,0, 0, 0, 0, 0. 1 . 2, 6, 28, 56, 
176,224, 192, 128,64,0,0,0,0,0, 
O 

10010 DATA 0,0,0,0,0, 1,7, 15,25,50, 
32,32,32,0,0,0,0,0,0,0,0, 128, 
224,240, 152,76,4, 4.4,0,0,0 

10020 DATA 0,0,0,0,3,14,24,12,6,115 
,255,63,7,0,0,0,0,0, 0,0,252, 
32, 64, 32, 248, 255, 255, 254, 252, 
248,0,0 

10030 DATA 0,0,0,0,1,115,255,63,3,7 
,7,3, 0, 0, 0, 0, 0,0.0,0, 248, 254, 
255, 255, 252, 248, 243, 243, 252, 
62, 15,0 

1 0040 DATA 0,0,0,0,63,4.2.4,63, 255 , 
255, 127,63,31, O, 0,0,0,0,0, 192 
, 112,24,48,224,206,255,252, 
224,0,0,0 



o 
o 

o 
o 
o 
o 
o 



10050 



10060 



DATA 0,0,0,0,31, 127,255,255, 
63,31,31,31,63. 124.240,0,0,0, 
0,0, 128,206,255,252, 192,224, 
224, 192,0,0,0,0 
DATA 130,200,96,49,25,45,39, 
75, 19,5,66,4, 65, 144, 4, 34, 1 , 35 
,6, 140,216, 177.224,201, 196, 
144,66,32, 4, 18, 128, 1 



Datos de spriíes pequeños 



10100 
10102 

10104 
10106 
10108 

10110 



DATA 170,35,170,85,170,85,170 
,85 

DATA 96, 32, 32, 32, 32, 32, 32, 32 
DATA 32, 32, 48, 48, 48. 48^ 1 12, 56 
DATA 48,56,56,56,60,60,60,60 
DATA 0,0,24,36,82,133,64,18 
DATA 170,85,170,85,0,0,0,0 



Tabla de claves 



10 




0 


125 




3345 


472 




627 


11 




0 


130 




1684 


475 




759 


12 




0 


140 




158 


477 




627 


15 




3122 


200 




918 


480 




810 


20 




3995 


210 




1388 


483 




627 


25 




3996 


220 




1424 


485 




B10 


30 




3997 


290 




593 


490 




868 


35 




3994 


300 




5130 


500 




7724 


40 




3995 


320 




4736 


505 




2612 


45 




3996 


330 




691 


50B 




829 


50 




3997 


335 




2329 


510 




2862 


55 




1899 


340 




143 


512 




845 


60 




4763 


350 




4466 


515 




2862 


65 




2046 


360 




3114 


517 




843 


70 




3220 


370 




143 


520 




2776 


75 




1569 


400 




5834 


522 




855 


80 




663 


410 




4013 


525 




2B00 


100 




6885 


430 




143 


527 




366 


110 




5843 


450 




3001 


540 




1365 


115 




7267 


465 




1457 


600 




3028 


120 




4733 


470 




759 


620 




613 



O 

o 
o 
o 
o 
o 
o 



700 

710 
720 
730 
740 
750 
760 
800 
805 
807 
810 
850 



2848 

3315 

3318 

3299 

3302 

3299 

483 

3574 

5975 

4368 

1272 

7261 



855 
860 
865 
B70 

900 

920 
990 

10000 
10010 
1 0020 

10030 
10040 



6683 

1916 

1553 

2391 

4217 

3267 

1777 

5771 

5371 

6652 

6647 

6784 



10050 

10060 

10100 

10102 
10104 

10106 

10108 
10110 



7559 
B039 
1640 
1412 
1472 
1417 
1330 
1280 



TOTAL= 156259 



Diseño de los sprites 




PAJARO LOCO: POSICION 1 





PAJARO LOCO: POSICION 2 





PATO MEDIANO: POSICION 1 p^xo MEDIANO: POSICION 2 







PAJARO DE FRENTE: POSICION 1 p^j^RQ p^,,,,^ ^^^^^^^^ ^ 





55. 



PAJARO DERRIBADO 
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Batalla láser 23 




Este es uno de los juegos más rápidos y que con deslumbrantes efectos láser y super- 
sonidos conmoverá a los más entusiastas. 

Naves guardianas tratan de arrasar tu planeta mediante la destrucción de uno de los tres 
acumuladores de energía de tu cañón láser. 

La nave nodriza provee de energía a las demás, y, sí la destruyes, te suma más puntos. 

Para crear los efectos láser se usa una subrutina en código máquina. 

Emplea la barra espadadora para disparar y las teclas de cursor para mover el cañón 
a derecha e izquierda. 
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SUGERENCIAS AL PROGRAMA 



Para dar velocidad a la nave nodriza, modifica el POKE de la linea 255 a 59999. 
Se pueden añadir más o menos naves guardianas, para lo cual debes corregir las rutinas 
"Posición de las naves guardianas", "Fuego de las naves" y "Vuelo de las naves". 



Variables del programa 



FA 


Fase (f)2) 


AN(H 1) 


Atributos de las naves: 




N = Número de nave. 




1 = 1 (Columna). 




] = 2 (Fila). 




I ^ 3 (Señal de parada}. 


ce 


Columna del cañón del jugador. 


SN 


Señal nave herida. 


PP 


Punto de partida del láser. 


NN 


Número de la nave que está disparando. 


NC 


Número de cañones que quedan. 



O 

o 
o 
o 
o 
o 
o 
o 



Inicialización 



5 KEY OFF :SCREEN 1,2 : COLOR 

15,1,1 

10 REM EJECUTft EL PROGRAMA 

11 REM SOPORTE EN CODIGO 

12 REM MAQUINA 

13 REM VER APENDICES 

15 FOR 1=1 TO S : READ Q : A*=A$ 

+CHR$ (Q) : NEXT : SPRITEÍ (0 

) = Ai : A$="" 
20 FOR 1=1 TO 32 : READ D : Aí=A 

$+ CHR$(Q) : NEXT : SPRITE$(1 

) =A* 

25 DEFUSRe=ó00eO ! : DEFUSR 1 =60 1 1 8 ! 

:POKE 599961,10; POKE 59997!, 
1 :POKE 59993!, 3: POKE 59999! 
,4:DEFUSR2=Ó0220!:FQR 1= 
60220! TO 6024S!: READ D : PO 
KE I,Q: NEXT 

27 FOR 1= 1088 TO 1344 STEP 64: 



O 
O 

O 

o 
o 
o 
o 
o 
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FOR J=0 TO 7 : READ Q : VPOKE 
I+J,Q 1 NEXT : NEXT 

30 PUT 5PRITE 1, (100,45) ,7:PUT S 

PRITE 0, (127, 100) , 11:NC=3: ON 
STRie 60SUB 150 

35 CLS : PRINT ^EATALLA„ 

LASER": FOR I =1 TO 18 : PRIN 
T : NEXT -. PRIMT "^^DA^A^CU 
ALG!UIER„TECLA^PARA^EMPEZAR" 

40 IF INKEYí="" THEN D=USR1(D): 

FOR 1=1 TO 100 : NEXT : LAY "L 
9M1O0OS14N33": GOTO 35 



Preparación muro protector 



50 CLS : PUT SPRITE 1,(!00,200) 

52 VPOKE 8209,225: VPOKE 8210,49 

: VPOKE 8211, 177: VPOKE 8212, 

97 : VPOKE 8213,241 
55 FOR 1=6720 TO 6751 : VPOKE I, 

136 : NEXT : FOR 1= 6816 TO 

6847 : VPOKE I , 23 : NEXT : VPO 

KE 6787,160: VPOKE 6799,160 : 

VPOKE 6812. 160 
57 CC=15 iGOSUE 1000 : PUT SPRIT 

E 0, (120, 150) , 15: STRI6(0) ON 




60 POKE 59999!, 8 : D=USR0 (D) : CC= 

INT(VPEEK(6913) /S) 
65 IF FA=2 THEN GüSUB 400 ELSE 

IF FA=0 THEN GDSUB 220 : GQTO 

70 

67 (30SUB 250 

70 IF RNDdX.ei AND FA=1 THEN 

FA=2 

75 IF FA=0 THEN 80 

77 IF RNDtlX.B OR FA=2 THEN 80 

78 GOSUB 190 

80 IF VPEEK (6912) =200 THEN 500 

90 GOTO 60 
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Disparos del jugador 



150 
155 

156 
157 

160 
162 



163 
165 



170 

175 
177 
1B0 



190 



191 
192 
193 



195 



196 



D=RNDíl) : STRIEÍO) OFF : PLAY 

"19mlOO0sl4n33" 

SN=0: I2=0:FDR 11=1 TO 4 : IF 

ANÍIl, 1)=CC THEhJ 12=11 

NEXT : F-OKE 599911,152 

IF I2O0 THEN PP=6144+32*AN( 

I2,2)+CC :£N=2-: GOTD 165 

IM=VPEEK (6917) : IP=CC*8 

IF IP<IM+2 OR IP~IN>¿ DR VPEE 

K (6916) =200 THEN PP=6144+CC: 

GGTC 165 

SN=1: PP=6208+CC 

PÜKE 59992 ! , PF MOD 256 : POKE 

59993! , INTCPP/256) : 13=6720 + 

CC: POKE 59994 í, 13 MOD 256: P 

ÜKE 59995! , INT( 13/256) :D=USR2 

(Di 

POKE 59991 ! ,32: FOR 13=1 TO 20 

: NEXT : D=USR2(D) 

IF BN=1 THEN GOSUB 300 

IF BN=2 THEN GOSUB 350 

STRIG(O) ÜN : RETURN 



Disparo nave guardiana 



IF AN(1,1)=0 AND ANC2,1)=0 
AND AN(3,1)=0 AND ANÍ4,1)=0 
THEN RETÜRN ELSE STRISÍO) OFF 
NN=NN+1: IF NN=5 THEN NN=1 
IF ANÍNN, 1Í=0 THEN 191 
FL=0 : K1=0 :POKE 59991 í , 152 
: I=617á+32*AN(NN. 2)+AN(NN. 1) 
: POKE 59992 ! , I MOD 256 : POK 
E 59993! . INT (1/256) 
IF VPEEKÍ6720+ñN(NN, i) )=136 T 
HEN J=Ó752+AN(NN, 1) í GOTO 
200 

J=6B16 + ANÍNN, 1) : IF AN(NN, 
1)=CC THEN Kl=i 
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197 
200 



202 

205 
210 



220 
221 



225 
226 



230 
231 



235 
236 



K=AN(NN,1) : IF K=3 OR K=15 
OR K=2B THEN FL=1 
POKE 59994 !,J MÜD 256: POKE 
59995!, INT(J/25óí: D==USR2(D) 
: IF FL^l THEN FOR J=l TO lO 
: COLOR 1,15,15 : FGR T=l TO 
30 iNEXT ; PLAY " 139m59000s8n 
2": COLOR 15,1,1 : FOR T= T TO 
30 :NEXT : NEXT : GOTO 5 
IF Kl = l THEN PIJT BPRITE O, ( 
100,200) : FOR K=l TO 7 : PLA 
Y "164ml0O0sl4n2On21n20n21": 
NEXT 

PLAY "1 19m380sl0n5O":POKE 
59991 ! ,32:D=USR2(D) 
STRIGÍO) ON : RETURN 



Posición de la nave guardiana 



IF AN(1, 1)<>0 THEN 225 
I=INT(RNDÍ1)*31+1) : IF I=AN(2 
, 1) ÜR I=AN(3,1) OR I=AN(4,1) 
THEN 221 ELSE ANÍ1,1)=I : AN ( 
1,2)=0 : VPDKE 6144+1,144: RE 
TURN 

IF AN (2,1)00 THEN 230 
I=INTÍRND(l)*31+t) : IF I=AN( 
1,1) ÜR I=AN<3.1) OR I=AN<4,1 
)'tHEN 226 ELSE ANÍ2, 1)=I : 
AN(2,2)=0 : VPGK.E 6144+1,144 
: RETURN 

I F AN í 3 , 1 ) <>0 THEN 235 

I = INTÍRNIÍ(1)*31 + 1) : IF I=AN( 

1,1) ÜR I=AN(2.1) OR I=AN(4,1 

)"tHEN 231 ELSE ANí3,l)=I : 

AN(3,2)=0 : VPGKE 6144+1,144: 

RETURN 

IF ANÍ4, DOO THEN 240 
I=INT(RND(l)*31+i) : IF I=AN( 
1,1) OR I=ANÍ2,1) ÜR I=AN(3,1 
) THEN 236 ELSE AN(4,1)=I : A 
N(4,2)=0 : VPÜKE 6144+1,144: 
RETURN 
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o 



240 

242 
243 
244 
246 
24B 



25« 
253 

255 



260 
265 

270 



2B0 
282 



284 

286 

287 
290 



IF ñN<l,3)=l AND Ar4<2,3)=l 
AND ANí3,3)=l AND ANÍ4,3)=1 
THEN FA=1: RETURN 
J = INTÍRND(1)#4+1) : T.F ANíJ,3 
) =1 THEN 242 

VPOKE ANÍJ, 1)+32*AN(J,2)+6144 

,32 : ANÍJ,2)=ANÍ.J.2? + 1 

ÍF AN(J,n<> O THEN VPÜKE AN ( 

J, 1)+32*AN(J,2)+Ó144, 144 

IF RNDCIX. r OR AN(J,2) >=7 

THEN ANÍJ,3)=1 ■ 

RETURN 



Movimiento nave nodriza 



IF VPEEK(6916)<>2yy THEN 255 
MC=2 : PUT SPRITE 1,(0,15): 
RETURN 

PÜKE 59997 ! , 1 : POKE 59998 ! , 3 
:POKE 59999!,6: D=USR11D):IF 
VPEEK (6917) >251 THEN PUT SPR 
ITE 1. (200,200) : RETURN 
MC=INt( (VPEEK(6?17}+8)/8) : IF 
RNDÍ1X.85 THEN RETURN 
IF MCOANíUl) AND MC<>AN(2,1 
) AND MC<>AN(3,1) AND MCOANÍ 
4, 1) THEN BOSUB 2S0 
RETURN 



Disparo nave nodriza 



PLAY "I24ml60s8n67" 

STRIG(O) QFF : FL=0 : Kl = O 

: POKE 599911,152 : 1=6240+110 

; POKE 59992!, I MÜD 256 : PO 

KE 59993!, INTf 1/256) 

IF VPEEK (MC +6720) =136 THEN 

J=6752+riC : GOTO 290 

J=6816 +MC : IF MC = 3 OR MC 

= 15 OR MC = 28 THEN FL = 1 

IF MC = ce THEN Kl= 1 
PQK.E 59994 ! , J MOD 256 : POKE 
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291 



293 



294 
299 



300 
310 

320 



330 
340 



59995! , INTía/25ó) : D = USR2 
(D) 

IF FL=1 THEN FOR J=l TO 10 : 
COLOR 1,15,15 : FOR T =1 TO 
30 : NEXT: PLAY "1 39ín590OOs8n 
2": COLOR 15, 1,1 ; FOR T =1 
TO 30 : NEXT : NEXT : GOTO 
500 

PLAY "124ml60sSnó7" 
IF Kl=l THEN PUT SPRITE O, ( 
100,200) : FOR J= 1 TO 7 : P 
LAY "164ínl00O3l4n2On21n20n21" 
: NEXT 

POKE 59991!, 32 : D=USR2(D) 
STR16(0) ON : RETURN 



Nave nodriza derribada 



se = SC+50 ; GÜSUB líOO 
PLAY "164m6O0Oes8n20n21n24n2S 
n40n45n43n29n20nl513nlO" 
FOR 14=1 TO 60 : VPOKE 14368 
+ INT(RND(1)*30) , INTÍRNDÍD* 
255) : NEXT : SPRITEÍ ( 1 ) =A$ 
PUT SPRITE Ij (200,200) 
RETURN 



350 

355 
360 



Nave guardiana derribada 



VPOKE 6144+ANÍI2, l)+32* ANÍI2 
,2), 168: se = se -f- 10 : G05UB 
1000 : FOR T = 1 TO 30 : NEXT 
VPOKE 6144+AN(I2, 1)+32*AN(I2, 
2) ,32 : ANÍI2. 1 ) =0 
RETURN 



Posición de naves guardianas 
(fase anterior) 



400 IF AN(1,1)<> 0 OR AN (2,1)00 

OR AN(3,1)<> 0 DR AN(4,1)<>0 
THEN STRIGÍO) OFF : GOTO 405 
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402 
405 

407 

410 

415 



500 
502 

510 



515 
520 

530 
535 

550 
560 

565 



570 



FQR J= 1 TQ 4 : ANCJ,3)=0 ; 

NEXT : FA =í0 : RETURN 

J= INT(RND(1)*4+1) : IF AN (J 

,1)=0 THEN 405 ELSE STRIG(é) 

ON 

VPOKE 6144 +AN(J,l)+32 * AN ( 
J,2),32 : IF AN(J,2) > O THEN 
AN(J,2)= ANÍJ,2)-1 
VPOKE 6144 + AN(J,1) + 32 » 
AN(J,2), 144 : IF AN(J,2) = O 
THEN VPOKE 6144 + AN(J,1) , 
32: AN( J,l)= 0 
RETURN 



Nuevo juego 



:>200 THEN 560 
FÜR T=l TO 



IF VPEEK(6912) 
STRIGíO) OFF : 
1500 : NEXT 

CLS : PUT SPRITE 0,(100,200) 
: PUT SPRITE 1,(100,200): PRI 

NT"^^. „„BATALLA„LASER": PR 

INT : FRINT : PRINT 
NC=NC-1 : IF NC=0 THEN 600 
PRINT "„^„^„HOMBRES«riUERTOS:^ 
^"j NC 

FDR J=l TD 2500: NEXT 

FOR J=l TO 4 : AN(J, 1) = 0 : 

NEXT : Fft = O 

6DT0 50 

STRIG(O) OFF: FOR T=l TC 1500 
: NEXT 

CLS : PUT SPRITE 0,(100.200) 
: PUT SPRITE 1,(100,200) : PR 
INT "„„„^„„^^BATALLA„LASER": 
PRINT : PRINT : FRINT 
PRINT " ! ! ¡FLANTA^DESTRUIDAf ! ! 
":FRINT:FR1NT:SGTQ 515 



Fin de juego 



600 



PRINT : FRINT : PRINT 
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610 
620 



PRINT "^„„„„TUS^PUNT0S"5SC 
IF INKEY*="" THEN END ELSE 
620 



Puntuación 



FDR 1=1 TO 22: PRINT : NEXT : 
PRINT : PRINT "PUNTOS: " J SC; 

CHR*(11); 
RETURN 



Datos de sprites 



DATA 24,60,24,60,24,52,122, 
255 

DATA 15,16,32,32,99,198,203, 
254, 255, 207, 199, 99, 33, 48, 16, 
15,240,8,4,4, 198,99,211,127, 
255,243,227, 198, 132, 12,8,240 



Datos de código máquina 



10100 DATA 42,88,234.58,87,234,79, 
205, 44, 235, 17, 32, O, 25, 237, 91, 
90,234, 124, 186, 194,67,235, 125 
, 187, 194,67,235,201 



Datos de sprites pequeños 



10200 DATA 90,165,90,165,90,165,66, 
129 

10202 DATA 24,126,213,171,255,66,60 
,24 

10204 DATA 24,24,24,24,24,24,24,24 
10206 DATA 24,36,90, 165,219, 165,219 
,255 

10208 DATA 2,144,4,17,64,4,161,8 



1000 
1010 



10000 

10010 



Tabla de claves 



tí 




1 ''I 7 


1 

I 7-J 




/ O / H 














1 7D 






TOA 




SA 1 


1 1 






1 OA 




TI A1 






1019 


1 9 




yj 


1 07 
IT/ 




■í"^9n 






1 43 


1 t; 










1 TDT/> 

i— 'O 






SI S3 


1 






¿,'0¿. 




dPPO 






79A1 












¿.a i 7 












1 ííAfJ? 


'71 ñ 




DRT 


400 






/ 




■J O *T 






1 Al~~J 


409 




9349 






"'"AAR 






73yD 


4CtS 




493R 


■te; 

OiJ 




7ñPP( 






1 AAA 


AO\1 










¿17'^7 


¿.¿ti 




TH-7 1 








□y 




1 1 

i 1 J 






1 dA^ 


AA^ 




1 ¿IT 


^ j:. 




■^RñA 






7^77 






1 79A 












1 H-tjy 






ji^y 1 o 


□ / 












^ 1 (Ti 

D 1 y 




oyoY 


Añ 




■j^Q / 








Dio 




1 7AS 
I / 03 
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Diseño de los sprítes 




NAVE NODRIZA LASER 
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En bumñ 24 

del tesoro 




Tipo de juego: 
JUEGO DE MESA 



Es una carrera para encontrar los diamantes antes que tu oponente. Hallarás rubíes, 
esmeraldas y ópalos a Ío largo del camino. Puede ser mejor ir primero a poi los rubíes. 
Como táctica, es una buena forma de ganar el juego. 

Puntuación: 



Diamantes 


l.OOO 


Rubíes 


750 


Esmeraldas 


500 


Opalos 


250 


Serpiente 


-100 
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SUGERENCIAS AL PROGRAMA 



Hay dos tácticas principales en este juego: ir derecho por los diamantes o pasar 
primero por una esquina a recoger algunos rubíes. Puedes aumentar las opciones técticas 
reorganizando la pantalla y añadiendo algunas gamas diferentes. No es un trabajo dificil, 
ya que la disposición de la pantalla se controla únicamente en la rutina que va de la lí- 
nea 100-195, 




PJdl 


Posición jugador 1. 


P(l) 


Puntuación jugador 1. 




Nombre del jugador. 




Mensaje a los jugadores. 


JA 


Jugador en acción. 


CJ 


Caracteres bajo el jugador. 



O 

o 
o 
o 
o 
o 
o 
o 
o 



10 



15 



20 
25 

39 
35 



Inicialización 



COLOR 15,4,7: SCREEN 1,2! KEY 
OFF 

VPDKE 821©, 160: VPOKE S2U,36 
: VPOKE 8212,132: VPÜKE 8213^ 
20 

READ Q: A$=ñ$+C 
SPRITE$(0)=A$: 



POR 1=1 TO 8: 
HRÍ(Gi): NEXT: 
SFRITE$(1)=A$ 
POR 1=1072 TO 



1079: REftD Q: V 



POKE IsQ: NEXT: POR 1=1152 TO 
1344 STEP 64: FOR J=0 TO 7: R 
EAD 0.i VPÜKE I+J,D: NEXT: NEX 
T: FOR 1 = 1112 Tü 1143: READ 9. 
: VPOKE I,Q: NEXT 
PRINTV^^^^EN„BUSCA^DEL„TESOR 
O" 

PRINT" Gema Valor (mili 
ones)";: PRINT" 



PRINT: PRINT: PRINT"Opalos" T 
AB ( 1 1 ) CHR$ í 144) TAB (19) "250" 
PRINT: PRINT"Esmeraldas" TAB ( 
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1 1 ) CHR* í 152) TAB (19) "500" 
40 PRINT: PRINT"RubÍGs" TABdDC 

HRÍ (160)TABÍ19) "750" 
45 PRINT: PRINT"Di amantes"TAB ( 1 1 

) CHR$ ( 139) CHRÍ (140) TAB í 18) " 10 

e0":PRINT TAB{11)CHR$Í141>CHR 

$(142) 

47 PRINT: PRINT"Serpi ente^' TABí 

1 1 ) CHR* ( 168) TAB (18) "-100" 

50 PRINT: PRINT: P$ ( 1 ) ="RICñRDD„ 

": INPUT"JugadQr„r';p$(l) :PRIN 
T: P$(2)="JULI0_": INPUT"Jug 
ador^2"; Pí(2) 

55 IF LENÍPÍ(2))>9 DR LENÍPíd)) 

>9 THEN PRINT"MUY„LARGO": GOT 
O 50 ELSE PRINT : PRINT"VALE: 
^" Pííl) "„Y^" P$(2) 

57 FOR 1=1 TO 20: PRINT: NEXT: P 
RINT" ^„„PULSñ^UNñ„TECLA" 

60 IF INKEY$="" THEN D=RND ( 1 ) : S 

OTO 60 



Preparación pantalla 



100 CLS: VPOKE 6511,139: VPOKE 

6512,140: VPOKE 6543,141: VPO 
KE 6544, 142 

105 FOR 1=6241 TO 6244: VPOKE I, 

134:NEXTí POR 1=6267 TO 6270: 
VPOKE 1,134: NEXT: VPOKE 6273 
,134: FOR 1=6276 TÜ 6287 : VP 
OKE 1,134: NEXT: FOR 1=6289 T 
O 6299: VPOKE 1,134: NEXT: VP 
OKE 6302, 134 

110 VPOKE 6305,134: VPOKE 6308, 

134: VPOKE 6317,134: VPÜKe" 
6319,134: VPOKE 6321,134: VPO 
KE 6323,134: VPOKE 6331,134: 
VPOKE 6334, 134 

115 VPOKE 6337,134: VPOKE 6340, 

134: VPOKE 6341,1-34: VPOKE 
6342,134: VPOKE 6347,134: VPO 
KE 6348.134: VPOKE 6349.134: 
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o 
o 



o i VPÜKE 6351, 134: VPOKE 6352,134 

rVPOKE 6353 j 134: VPOKE 6555, 
134 VPOKE 6361, 134 
O ! 116 VPOKE 6362,134: VPOKE 6363, 

134: VPOKE 6366, 134 
120 VPOKE 6369, 134: VPOKE 6374, 

O I 134:VP0KE 6379, 134: VPOKE 6384 

,134: VPOKE 6387, 134: VPOKE 
6388,134: VPOKE 6389,134: VPO 
O I KE 6393,134: VPOKE 6398,134 

125 VPOKE 6401,134: POR 1=6404 TO 

6411: VPOKE 1,134: NEXT: VPQK 
O I E 6414,134: VPOKE 6415,134: V 

POKE 6416,134: VPOKE 6421,134 
: VPOKE 6425,134: VPOKE 6430, 
134 

130 POR 1=6433 TO 6436: VPOKE I, 

134: NEXT: VPOKE 6440,134: VP 
OKE 6446,134: FOR 1=6453 TO 
6459: VPÓKE 1,134: NEXT: VPOK 
Q I E 6462, 134 

' 135 VPOKE 6466,134: FOR 1=6468 TO 

6474: VPOKE 1,134: NEXT: FOR 
O ! 1=6478 TO 6483: VPOKE 1,134: 

NEXT: VPOKE 6487,134: FOR 1= 
6491 TO 6494: VPOKE 1,134: NE 
O ! XT 

140 VPOKE 6498, 134: VPOKE 6501,134 

: VPOKE 6506,134: VPOKE 6507, 
O I 134í VPOKE 6508, 134 ¡VPOKE 6510 

,134:VP0KE 6513,134: VPOKE 
6515,134: FOR 1=6517 TO 6523: 
O I VPOKÉ 1,134: NEXT: VPOKE 6525 

, 134 

145 VPOKE 6530,134: FOR 1=6532 TO 

6538: VPOKE 1,134: NEXT: VPOK 
E 6540,134; VPOKE 6542,134: V 
POKE 6545,134: VPOKE 6547,134 
: VPOKE 6548,134: VPOKE 6549, 
134: VPOKE 6554,134: VPOKE 
6557,134 

150 VPOKE 6562, 134:ypOKE 6563,134 

: VPOKE 6564,134: VPÜKE 6566, 
134: FOR 1=6572 TO 6577: VPOK 
E 1,134: NEXT: FOR 1=6581 TO 



O 

o 
o 
o 
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O 

o 
o 



o I 6587: VPOKE 1,134: NEXT: VPOK 

E 6589, 134 
155 VPOKE 6594,134; FOR 1=6596 TO 

O ! 6602: VPOKE 1,134: NEXT: VPOK 

E 6609,134! VPOKE 6615,134: V 
POKE 6619,134: VPOKE 6620,134 
O I : VPOKE 6621, 134 

160 VPOKE 6626, 134:VP0KE 6628,134 

: VPOKE 6631,134: VPOKE 6634, 
O I 134:VP0KE 6635, 134: VFDKE 6636 

,134: VPOKE 6639,134: VPOKE 
6640,134: VPOKE 6641,134: FOR 
1=6644 TO 6651: VPOKE 1,134: 
NEXT: VPOKE 6653, 134 
165 VPOKE 6653, 134: VPOKE 6660,134 

: VPOKE 6663,134: VPOKE 6668, 
134: VPOKE 6671 ,^34 : VPOKE 6676 
,134: VPOKE 6630,134: VPOKE 
6683,134: VPOKE 6685,134 
170 FOR 1=6689 TO 6692: VPOKE I, 

O i 134:NEXT: VPOKE 6695, 134:VP0KE 

' 6696, 134: VPOKE 6697, 134: VPOKE 

6700, 134: VPOKE 6702, 134: VPOKE 
O I 6703, 134: VPOKE 6704, 134: VPOKE 

6706, 134 : VPOKE 6707, 134:,VP0VÍE 
6708, 134: VPOKE 6711,134: 
O I 171 VPOKE 6712,134: FOR 1=6715 TO 

6716; VPOKE I, 134: NEXT 
175 VPOKE 6721, 134: VPOKE 6724,134 

O I : VPOKE 6729,134: VPOKE 6732, 

134:VP0KE 6734 , 134 : VPOKE 6736 
,134: VPOKE 6738, 134: VPOKE 
O I 6743,134: VPOKE 6747,134: VPO 

KE 6750,134 
180 FOR 1=6753 TO 6766: VPOKE 1, 

134: NEXT: FOR 1=6768 TO 6782 
: VPOKE I, 134: NEXT 
185 VPOKE 6792, 134: VPOKE 6797,134 

: VPOVÍE 6801,134: VPOKE 6806, 
J.34: FOR 1=6829 TO 6833: VPOK 
E 1,134: NEXT 
190 VPOKE 6241, 160: VPOKE 6270,160 

: FOR 1=6242 TO 6782: IF VPEE 
K(l)=134 THEN K=RND ( 1) : IF K< 
.05 THEN VPOKE 1,168 ELSE IF 



O 

o 
o 
o 



237 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



192 



195 



200 
210 
220 
230 



250 
260 



300 
305 



310 
320 

325 



330 



K<.1 THEN VPOKE 1,152 ELBE IF 
K<. 15 THEN VPOKE í, 144 
NEXT: VPOKE 6530,160: VPÜKE 
6589,160: VPÜKE 6278,160: VPO 
KE 6297, 160 

Mí (l)="Tu^turnQ M$(2)=" 

Espera^, ": GDSUBIOOO: JA= 

1: Q=l: PUT SPRITE 0,(64.160) 
,1:PUT SPRITE 1 , ( 176, 160) , 12: 
CJ(1)=134! CJÍ2)=134: PJ(1)= 
6792: PJÍ2)=6806- 




X*=INKEY*: C=C+1 

IF C=6 THEN Q=l-Q: C=Q 

IF QOO THEN 250 

Q=l: t<=VPEEK(PJ CJAÍ ) : IF K=32 

THEN VPÜKE PJ (JA) ,Ca (JA) ELSE 

VPOKE PJ (JA) ,32 

IF X*="" THEN 200 

K=ASC(X*)-27: IF K<1 ÜR K>4 T 

HEN 200 ELSE ON K (3ÜT0 300, 

320,340,360 



Test de movimientos permitidos 



IF VPEEKÍPJ (JA)+1)=32 THEN 
200 

VPÜKE PJ (JA) ,CJ (JA) : CJ(JA)=V 
PEEK(PJ(JA)+1): PJ (JA)=PJ (JA) 
+1;VPÜKE 6909+4*JA,VPEEKÍ6909 
+4*JA)+8 
GüTü 400 

IF VPEEKÍPJ (JA)-1)=32 THEN 
200 

VPÜKE PJ (JA) ,CJ (JA) : CJ(JA)=V 
PEEK(PJ(JA)-Í): PJ(JA)==PJ(JA) 
-1: VPÜKE 69O9+4-*JA,VPEEK(6909 
+4*JA)-8 
GOTO 400 
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340 IF VPEEK(PJ (JA)~32)=32 

200 

345 VPÜKE PJ(JA),CJ(JA): CJ 

PEEK(PJ (JA)-32) :PJ íJA) = 
-32: VPOKE 6908 + 4*JA, 
6908+4*JA)-8 

350 GOTÜ 400 

360 IF VPEEKíPJ(JA)+32)=32 

200 

365 VPOKE PJ (JA) ,CJ (JA) : CJ 

PEEKÍPJ (JA)+32) :PJ (JA)= 
+32: VPOKE 6908 + 4#JA, 
6908+4*JA)+8 



THEN 

(JA)=V 
PJ (JA) 
VPEEK í 



THEN 

(JA)=V 
PJ (JA) 
VPEEK ( 



Comprobación de movimiento 



400 



401 

410 
420 



425 
490 



K=CJÍJA): IF K=134 THEN GÜ3UB 
750 ELSE IF K=144 THEN GÜSUB 
600 ELSE IF K=152 THEN GDSUB 
650 ELSE IF K=160 THEN GÜSUB 
550 ELSE IF K=168 THEN GDSUB 
700 ELSE GOSUB 900 
K=CJÍJA) : ON K GOSUB 750,600 
, 650, 550, 700, 900, 900, 900, 900 
IF JA=1 THEn'jA=2 ELSE JA=1 

M$(JA)="Tu„turno "; IF JA= 

1 THEN M$ (2)="EEpera^^^_„"EL 
SE M*(l)= "Espera_^^„^^" 
GOSUB 1000 
GOTO 200 




550 m (JA)="RUB1ES^^+^750„":PÍJA) 

=P (JA) +750: GOSUB lOOO: CJ ( JA) 
=134! VPÜKE PJ(JA),134 

580 PLAY"14s8m30000n45Í8n4014n45" 
, "14s8m20OO0n3618n3114n36": F 
OR T=l Tü 1000: NEXT 

590 RETURN 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



600 

630 
640 



650 

680 
690 



700 



730 



740 



750 
755 




Mí (JA) ="OPALOS_+^250^" : P í JA) 
=P(JA)+250:6OSUB 1000: CJÍJA) 
=134: VPÜKE PJ (JA) , 134 
PLAY"lAsl4m3000n45": FÜR T=l 
TD 1000: NEXT 
RETURN 



Esmeraldas 



M* (JA) ="ESMER. +500 " : P ( JA) =P ( J 
A)+500:GDSUB lOOO: CJÍJA) =134 
: VPÜKE PJ (JA) , 134 
PLAY" 14s 1 4ín300On401 
T=l Tü 1000: NEXT 
RETURN V 



Ín45": FOR 




M$(JA)="SERP.-1O0„":P(JA)=PÍ J 
A)-100rGOSUB lOOO: CJ(JA)=134 
: VPDKE PJ (JA) , 134 
PLAY"164s8ín59000n45n46n47n48n 
49n50n51n51n50n49n48n47n46n45 
n44n45n46n47n48n49n5en5ln50n4 
9n48n47n44bn45n44.l3n43": FÜR T 
=1 TO 2000; NEXT 
RETURN 




IF RNDtlX.7 THEN RETURN 
IF RND(1)<.3 THEN M$(JA)="PLft 
TA+50^„": PÍJA)=PÍJA)+50: GÜS 
UB 1000: PLAY"165lm777no4n50n 
23% "12s5m2000n40": FüR T=l T 
ü 1000: NEXT: RETURN 
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760 IF RNDdX.S THEN M$(JA)="AMA 

T.+20„„": P(JA)=P(JA)+20: 60S 
UB 1000: PLAY"14slOm5O0n35n30 

"12slml000n20": FDR T=l TO 
1000: NEXT; RETURN 

765 Mí (JA)="ES„ORÜ„-50": PÍJA)=P( 

JA)-50: GOSUB 1000: PLAY"ll58 
fn20000n2": FOR T=l TO lOOO: N 
EXT: RETURN 



Fin de juego 



900 SCREEN 1: P í JA) =P ( JA) +1000 

9 1 0 PLAY" 1 8s2m3O000n45n461 4n451 2n 

461 ln37", "52m30p0018n37r814n3 

7r21 ln33" 

920 IF PÍ1)>PÍ2) THEN PRINT P*(l) 

"^HA^GANADG" ELBE IF P(2)>PÍ1 
) THEN PRINT P$ Í2) "„HA„GANADD 
" ELSE PRINT"EMPATADOB" 

930 FÜR 1=1 TO 3: PRINT: NEXT: PR 

INT"La5„puntuaciones„son: ": P 
RINT: PRINT PÍ(1),P(1): PRINT 
: PRINT P$(2),PÍ2) 

980 PRINT: PRINT: PRINT 

990 END 



Puntuación y mensaje 



1000 PRINT P$(l)":": PRINT"PUNTÜS: 
";P(U ;TABÍ12)M*(1) : FÜR 1 = 1 
Tü 20: PRINT: NEXT: PRINT P* ( 
2)"!"! PRINT "PUNTOS: ";PÍ2)ST 
AB(11)M$(2) ;CHR*lll) ; 

1010 RETURN 



Datos de sprites 



10000 DATA 24,60,126,126,60,36,66, 
129 



o 
o 

o 
o 
o 
o 
o 



Datos de sprites pequeños 



10100 DATA 255,213, 171 , 213, 1 71 , 213, 
171,255 

10102 DATA 66, 231 , 66, O, O, 66, 23 1 , 66 
10104 DATA 32, 112» 246, 1 16, 46, 31 , 14, 
4 

10106 DATA 60,126.255,255,255,255, 
126,60 

10108 DATA 2,7,12,76,140,134,195, 
126 

10110 DATA 1,3,7, 15,31,63, 127,255 
10112 DATA 128, 192, 224, 240, 248, 252, 
254,255 

10114 DATA 255,127,63,31,15,7,3,1 
101 16 DATA 255, 254, 252, 248, 240, 224, 
192, 128 



O 

O 

o 
o 
o 
o 
o 







1 4"^ 


755 




1 1653 


10000 


= 1570 






/ o 


760 




1 1516 


10100 


= 1885 








765 


_ 


6628 


10102 


= 1390 






1 43 


900 




1718 


10104 


= 1535 






5919 


910 


_ 


5112 


10106 


= 1775 


QO*.' 




3007 


920 


_ 


6840 


10108 


= 1514 


690 


— 


143 


930 


— 


6033 


10110 


= 1326 


700 


_ 


5692 


980 


— 


561 


10112 


= 1891 


730 




12076 


990 




129 


10114 


= 1343 


740 




143 


1000 




8585 


10116 


= 1883 


750 




1506 


1010 




143 


TOTAL= 


437289 



Diseño de los sprites 




JUGADOR 




le claves 



5 




1236 


7 




1940 


10 




4362 


15 




8894 


20 




1949 


25 




4886 


30 




2951 


35 




3170 


40 




2756 


45 




6096 


47 




3166 


50 




7024 


55 




7081 


57 




3087 


60 




2297 


100 




1772 


105 




5850 


110 




6446 


115 




11402 


116 




2213 


120 




8095 



125 




6994 


130 




5901 


135 




78B3 


140 




9606 


145 




10499 


150 




8947 


155 




7551 


160 




12260 


165 




6289 


170 




12810 


171 




1665 


175 




7SO0 


180 




3771 


185 




5077 


190 




11233 


192 




3109 


195 




13894 


200 




1325 


210 




1793 


220 




1220 


230 




47B6 



250 




1032 


260 




4656 


300 




2059 


305 




8509 


310 




537 


320 




2059 


325 




8511 


330 




537 


340 




2044 


345 




8518 


350 




537 


360 




2044 


365 




8516 


400 




9647 


401 




356S 


410 




1829 


420 




6786 


425 




397 


490 




593 


550 




5962 


580 




5622 



242 



243 



Minotauro 25 

Mastermind Jr. 



VUEt.TA • 1 NIVEL l 
«OfUINft CL NUMERO SECRETO 
V PUl-Sn <RETURN>? fl| 

- . 4 t ,© e e © ♦ "5 * 7 e V 

3eS»'> 7 2 e s m -> 9 

-6 o 3 T l A « ■? i , i 

371 T e 2 ti '* 6 Z 7 S A 

e í9 6 4? & a. 6 « o o I 

. ".e"'2 -6 9 3 T'« .2 ,.6 » 8 2 

■ 5 ^ 7 'o 5 -> -.9 -5 "; » 7 ± ■ 

.6 « 4 -5 ? « " ■!& -0 -■■-■j 



Tipo de juego: 
JUEGO EDUCATIVO 



Este es un juego educativo, versión del "Minotauro Mastermind", en el que se han 
simplificado tas pistas para ayudar a los jóvenes jugadores a que encuentren el número 
secreto entre 10 y 99. 

Tu puntuación es la suma de los números sobre los que te posas; por eso son me- 
jores las puntuaciones bajas. Cuando alcanzas la salida en lo alto del bloque tienes una 
oportunidad de averiguar el número secreto. Los símbolos no numéricos tienen distintos 
efectos cuando pasas por ellos: 

X Te da una pista. 

? Tiene un valor aleatorio. 

* Altera la puntuación aleatoriamente. 

La situación se indica mediante un punto intermitente que controlas con: 

<P> Arriba. < :> A bajo /derecha, 

<P) Arriba/izquierda. <a> Derecha. 

< :> Abajo. <L> Abajo/izquierda. 

<0) Izquierda. <T> Atrapado. 

( - > Arriba/derecha. 
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SUGERENCIAS AL PROGRAMA 



Puedes modificar la complejidad dei juego añadiéndole varios niveles de dificultad. 
Una posibilidad es simplificar el cuadro que hay en pantalla (líneas \(¡l(¡lA6(¡l), de forma 
que haya menos números y símbolos. 

Igual que en el juego original, puedes añadir más pistas (lineas 650-688) o cambiar 
las existentes. 



Variables del programa 



ND 


Nivel de dificultad. 


V 


Número de vuelta. 


NS 


Número secreto. 


DI, D2 


Dígitos del número secreto. 


PJ 


Posición jugador. 


M 


Posición minotauro. 


UP, TP 


Ultima puntuación; total puntos. 


NA 


Número aleatorio. 


CB, J 


Carácter debajo del minotauro: jugador. 


FJ, CJ 


Fila y columna del jugador. 


NP 


Número de pistas. 


T(IJ 


¿Pista utilizada? 


Gl, G2 


Dígitos supuestos por el jugador. 


MC, MF 


Columna y fila del minotauro. 



O 

o 
o 
o 
o 
o 
o 




4 

5 

6 
7 

10 



15 

20 
22 



GGSUB 2Q>mQ 

TM=1: INTERVflL ON: DN INTERVA 
L=10 GOSUB 7 
BOTO 10 

TM=TM*2: RETURN 

KEY OFF: BCREEN 1: CLS: COLOR 

15,1,1: FRINT"„^_MINOTflURO„ 

MñSTER^MIND" 

PRINT: FRINT: FRINT; FRINT "„ 
NIVEL„DE„DIFICULTAD^(l-9) "; 
ND=VñL(INKEY$) : IF ND< 1 OR ND 
>9 THEN 20 ELSE PRINT ND 
FOR 1=1088 TO 1344 STEP 64: F 
DR J=0 TD 7: READ Q: VPDKE 1+ 
J,Q: NEXT: NEXT 



O 

o 
o 
o 
o 
o 
o 
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23 



25 



30 
35 

40 



VPOKE 8209,49: VPOKE 8210,97: 

VPOKE 8211,177: VPOKE 8212, 

145: VPOKE 8213, 129 

FOR 1=1 TO 8: PRINT: NEXT: PR 

INT "PULSA„UNA^TECLA^PARA^EMP 

EZAR" 

IF IIMKEY$="" THEN 30 

INTER VAL OFF: IF TM>1000 THEN 

TM=TM/3: GOTO 35 

TP=0: NP=0: FOR 1=1 TO ¿: Til 

)=0: NEXT: V=l: NB=INT Í89*TM/ 

1000+10): N=NS*10e: D1=INTÍNS 

/10): D2=INTCNB-Dl*ie) 



100 
110 



115 

120 

125 
130 
140 

150 
1¿0 



200 

205 
210 
215 
220 



Nueva jugada 



CLS: PJ=6799: ri=¿607 

FOR 1=6336 TO 6784 STEP 64: F 

OR J=3 TO 27 STEP 2: GOSUB 

900: Kl = INT(Nñ*13) ; IFKKltí 

THEN VPOKE I+JjKl+4Sí GOTO 

130 

IF Kl=10 THEN VPDKE I+J,144: 
GOTO 130 

IF Kl=ll THEN VPOKE I+J, 152: 
GOTO 130 
VPOKE I+J, 160 
NEXT: IMEXT 

VPOKE PJ,48: UP=0: CM=VPEEKÍM 
): VPOKE M,136: VPOKE 6351, 
168: CJ=48 

PRINT "„VUELTñ„#"; V; NIVE 

L„"íMD; CHR$(11)Í 
GOSUB 1000 



Editor 



C=0:(3=l 

X$=INKEY$: C=C+1 

IF C=7 THEN G=l-D: C=0 

IF QO0 THEN 230 

IF VPEEK(PJ)=255 THEN VPOKE P 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



225 
230 
240 
242 

245 
250 
255 
260 
265 
270 
275 
280 
285 
290 



300 
302 
304 
305 
310 
312 
314 
315 
320 
322 
324 
325 
330 
332 
334 
335 
340 
342 
344 
345 
350 
352 
354 
355 



J,J; Q=l: GOTO 230 
VPOKE PJ,255: Q=l 
IF Xí="" THEN 205 
GOSUB 95?> 

IF VPEEK(PJ)=255 THEN VPDKE P 
J, J 

IF X$="P" OR X*="p" THEN 300 

IF X*="D" OR n="o" THEN 310 

IF X*="e" OR X$="2" THEN 320 

IF X*="; " THEN 330 

IF X*="-" THEN 340 

IF X*="0" THEN 350 

IF X$="L" OR X*="l" THEN 360 

IF Xt=";" THEN 370 

IF Xt="T" OR X$="t" THEN 380 

GOTO 205 



Test de movimientos permitidos 



IF VPEEKÍPJ-64) 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ 
GOTO 400 
IF VPEEK<PJ-2)= 
UP=VPEEK.(PJ)-48 
VPOKE PJ,32: PJ 
GOTO 400 
IF VPEEK(PJ+2)= 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ 
GOTO 400 
IF VPEEK(PJ+64) 
UP==VPEEK<PJ)-48 
VPOKE PJ,32: PJ 
6GT0 400 
IF VPEEK(PJ-62) 
UP=VPEEK<PJ)-48 
VPOKE FJ,32; PJ 
GOTO 400 
IF VPEEK(PJ--66) 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ 
GOTO 400 



=32 THEN 205 
=FJ-64 
32 THEN 205 
=PJ-2 

52 THEN 205 
=PJ+2 

=32 THEN 205 
=FJ+64 
=32 THEN 205 
=PJ-62 

=32 THEN 205 
PJ-66 
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360 IF VPEEK(PJ+62)=32 THEN 295 

362 UP=VPEEK(PJ)-48 

364 VPOKE PJ,32; PJ=PJ+62 

365 GOTO 400 

370 IF VPEEK(PJ+66)=32 THEN 205 

372 UP=VPEEKÍPJ)-48 

374 VPOKE PJ,32: PJ=PJ+6Ó 

375 GOTO 400 

380 FJ=INT(FJ/32) : CJ=PJ-FJ*32: 
OSUB 500: IF PJOM THEN 380 

385 GOTO 800 



Comprobación de movimiento 



400 J=VPEEK(PJ): FJ=INT (PJ/32) : C 

J=PJ-FJ*32 
402 IF <UP>9) OR (UP<0) THEN UP-0 

405 K1=VPEEK(PJ) : IF K1=152 THEN 

GOSUB 600 
410 IF Kl=144 THEN GOSUB 650 

415 IF Kl=160 THEN GOSUB 750 

420 IF Kl=168 THEN 2000 

422 Kl=VPEEK(PJ)-48: IF KKO OR K 

1>9 THEN K1=0 
425 IF U+K1>=10-ND THEN GOSUB SOO 

430 TP=TP+K1: GOSUB lOOO 

435 IF PJ=M THEN BOO 

440 GOTO 200 



Movimiento del minotauro 



500 VPOKE ei?S,31: MF^INT(N/32) 

MC=M-MF*32 
502 IF MCOJ THEN 508 

504 IF M>FJ THEM MF=MF-2: GOTO 

540 

506 MF=MF+2: GOTO 540 

508 IF MFOFJ THEN 515 

510 IF MOJ THEN MC=MC-2: GOTO 

540 

512 MC=MC+2: GOTO 540 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



515 
517 

520 
522 
54*3 

542 
544 
546 
550 
570 



600 
610 



650 
652 
654 

656 
658 

660 



662 

665 

666 

667 
668 
670 



IF ri>PJ THEN 522 

IF m<PJ THEN M[:=MC+2: GQTO 

540 

MC=M[:-2! 90T0 540 
MF=MF-2 

K^32*MF+MC: VPOKE 8198,241: IF 

VPEEK(K)=136 THEN RETURN 

VPOKE M,CB 

ri=K: CB=VPEEKÍM) 

VPOKE M, 136 

PLAY "n2" 

RETURN 



Jugador sobre (?) 



GQSUB 900: I=INT(Nñ*10) : VPOKE 
PJ, 1+48 

J=I+4a: RETURN 



Jugador sobre (X) 



VPOKE PJ,48 

IF NP>=6 THEN BEEP: GQTO 670 

GOSUB 900: K2=INT (NA*6+1 ) í IF 

T(K2)=1 THEN 654 

T(K2)=1: NP=NP+1: BEEP 

ON K2 GOTO 660,665,670,675, 

680,685 

PRINT: PRINT: PRINT"La^5uma^d 
e„l Qs^di gi tüs^del " : PRINT"nume 

PRINT D1+D2: PRINT CHR$(11);: 
RETURN 

PRINT: PRINT: PRINT "El ^numero 

„5ecreto„e5„: "; 

IF NS>50 THEN PRINT"^MayDr„qu 

e„50": GOTO 668 

PRINT "„Menor^Q„igu.al„que„5e " 

PRINT CHR$(11);: RETURN 

GOSUB 900:K=1NT(NA*15)+NS:J=K 

-15: IF J<0 THEN 3=0 
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672 
673 

674 
675 

676 

677 
678 
680 

681 

682 
683 
685 



688 



IF K>99 THEN K=99 

PRINT: PRINT: PRINT"El„numero 

«esta^entre"; J: PRINT"y";K 

PRINT CHR$(11);: RETURN 

PRINT: PRINT: PRINT"El„primer 

^digito^es" 

IF DK5 THEN PRINT"rTienür„que„ 
5" ¡GOTO 678 

PRINT "mayQr^o„igual„que^5" 
PRINT CHRt(ll);: RETURN 
PRINT: PRINT: PRINT"El„segund 
D^digito^ea" 

IF D2>5 THEN PRINT "menor^que 
^5": GOTO 683 
PRINT"mayQr_Q„igu,aI„que„5 " 
PRINT CHR$(11);: RETURN 
PRINT: PRINT: PRINT"El^prQduc 
tQ^de^lQs„dü5": PRINT"di gi tos 
^es" j 

PRINTD1*D2! CHR$ ( 1 1 ) ; : RETURN 



750 
752 
754 



756 



760 



Jugador sobre (*) 



VPOKE PJ,48 

IF T<11 THEN RETURN 

GOSUB 900; I=INT íNA*10fl) : IF 

1>50 THEN T=T-10: PLñY"L64N10 

N8N6N4": RETURN 

IF KIO THEN T=T+50: PLAY"L32 

N10N8N6N4N10N8N6N4": RETURN 

T=T+10: PLñY"L64N10N3NáN4": R 

ETURN 



800 
805 



810 



Fin de juego 



CLS: IF M=PJ THEN B20 

FOR 1=1 TO 8: PRINTTAB (2*1 ) "E 

NHORftBUENA"; PRINT: NEXT¡PRIN 

T 

PRINT"HñS„VENCIDO^AL„MINOTAUR 
O": PRINT"TU^PUNTUACION„ES„"S 
TP 
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815 PR I NT " EN " ; V ; " ^VUELTAS " : GOTO 

840 

820 FOR 1=1 TO 5: PRJNT TñBÍ2*I)" 

VENCIO„EL^MINOTAURQ": PRINT: 
NEXT: PRINT 

825 PRINT"El„numera^secreto„era-" 
;NS 

840 PRINT: PRINT "PULSA„UNA^TECLA„ 

PARA": PRINT"JUGAR^OTRA„VEZ" 

845 XÍ=INKEYS: IF X*="" THEN 845 

846 RUN 5 



Número aleatorio 



900 NA=Í9999*NA+N) MOD 5997!: NA= 

NA/5997! 

910 IF NA<.2 THEN N=NA* 10000+1 

920 RETURN 



Mensaje en blanco 



950 FOR 1=^6208 TO 6271: VPOKE I, 

32: NEXT 
970 RETURN 



Puntuación 



1000 FOR 1=1 TO 22: PRINT: NEXT: P 
RINT"PUNTUACION„TOTftL";TP: PR 
I NT " ULT I MA^PUNTUAC I ON " ; UP ; CHR 
$(11) ; 

1010 RETURN 



Adivina el número secreto 



2000 PRINT: PRINT: PRINT"ADIVINA„E 

L„NUMERO„SECRETO": PRINT 
2005 I NPUT " Y„PULSA„ í RETURN) " ; K$ 



2010 I=VAL(KÍ): IF I=NS THEN BOO 
2015 G1=INT(I/10) : G2=I'G1*10 
2020 CLS: PRINT: IF Dl==Gl THEN PRI 

NT"El„priiner„dlgi to«e5„correc 

to": PRINT 

2025 IF D2=G2 THEN PRINT"E1 ^segund 
o„digito„es„correcta": PRINT 

2035 IF DlOGl AND D20G2 THEN PRI 
NT"NingL[n„digi to„e5„correcto" 

2040 FOR Z=l TO 2000: NEXT 

2045 V=V+l! GOTO 100 



Datos de los sprites pequeños 



10000 DATA 165, 126,219, 126, 102, 126, 
82,60 

10002 DATA 136, 136,80,32,80, 136, 136 

10004 DATA 112,136,8,16,32,0,32,0 

10006 DATA 32,168,112,32,112,168,32 

10008 DATA 16,56, 124,254, 124,56, 16, 

0 



Instrucciones 



20000 CLS : I NPUT "QU IERES„ I NSTRUCC I ON 
ES„(S/N)?";X$: IF X$="N" OR X 
4="n" THEN 20010 

20001 CLS: PRINT"PARA„riOVERTE^EN^EL 
^LABERINTO«PULSA„: " 

20005 PRINT: PRINT"_P-p^„^ARRIBA" : 

PRINT"„„0-o IZQUIERDA": PRI 

NT"^„e-2^^^DERECHA": PRINT"_ 
;^^^„„ABAJO": PRINT"^„-„__A 
RR IBA-DERECHA" 

20006 PR I NT " «^O^^^^^ARR I B A- 1 Z QUI ERDA 
": PRINT"_L-l_ABAJO-IZG!UIE 

RDA": PRINT"^„:_ ABAJO-DER 

ECHA": PRINT"_T-t^„^ATRAPADO 



20007 



PRINT: PRINT: PRINT"51„PISAS^: 



i 



o 
o 
o 
o 



20008 
20009 

20010 



: PRINT: PR1NT"^X„, 
UNA„FISTñ": PRINT". 

ñS^PUNTUftCION 

□RIft": PRINT"^*^„„. 

U„PUNTUñCIGN 

ENTE" 

PRINT: PRINT"PULSA. 

PARA^SEGUIR" 

IF INKEY$="" THEN : 

RETURN 



TENDRAS^ 

.?«„«„SUMAR 
-^^^^^ALEAT 
,ALTERARA„T 
.ALEATGRIAM 

.UNA„TECLñ„ 

:0y09 



Tabla de claves 



4 




234 


242 




2045 


345 




537 


5 


_ 


3376 


245 





1 850 


350 




1850 


6 




403 


250 





1823 


352 





1391 


7 


— 


1035 


255 


_ 


1792 


354 




1389 


10 




3886 


260 


_ 


966 


355 




537 


15 


- 


2866 


265 




970 


360 




1838 


20 




3352 


270 


_ 


977 


362 




1391 




_ 


3640 


275 


_ 


1B86 


364 


_ 


1372 




— 


2630 


280 





1013 


365 


_ 


537 


25 


- 


4004 


285 





1914 


370 


_ 


1850 


30 




969 


290 





594 


372 




1391 


35 


= 


3770 


300 


_ 


1848 


-374 


— 


1368 


40 




1OB03 


302 




1391 


375 




537 


100 




647 


304 




13B9 


380 




4613 


110 




7S95 


305 




537 


385 




391 


115 




2238 


310 




17S4 


400 




3786 


120 




2239 


312 




1391 


402 




2141 


125 




B22 


314 




1327 


405 




2292 


130 




320 


315 




537 


410 




1197 


140 




4118 


320 




1784 


415 




1313 


150. 




2S80 


322 




1391 


420 




1162 


160 




397 


324 




1326 


422 




3276 


200 




734 


325 




537 


425 




2151 


205 




1325 


330 




1848 


430 




1426 


210 




1798 


337 




1391 


435 




860 


215 




1208 


334 




1388 


440 




593 


220 




3244 


335 




537 


500 




2954 


225 




1087 


340 




1938 


502 




1347 


230 




1036 


342 




1391 


504 




2196 


240 




345 


344 




1373 


506 




1297 



O 

o 
o 
o 



508 




1176 


674 




932 


970 


— 


143 


510 


= 


2185 


675 




2657 


100^ 


_ 


6679 


512 




1294 


676 




2793 


1010 




143 


515 


= 


878 


677 


= 


2062 


2000 




2930 


517 


- 


2294 


678 


= 


932 


2005 


— 


1653 


520 




1293 


680 




2779 


2010 


_ 


1877 


522 


= 


803 


681 


= 


2783 


2015 


- 


2414 


540 


- 


3393 


682 




2062 


2020 


- 


4758 


542 




467 


683 




932 


2025 




4459 


544 


- 


1407 


685 


= 


4380 


2035 


— 


5072 


546 


= 


481 


688 


- 


1514 


2040 


- 


1161 


550 




431 


750 


= 


469 


2045 


— 


1258 


570 


= 


143 


752 




863 


10000 


— 


1770 


600 




2555 


754 




4880 


10002 


— 


1572 


610 




908 


756 


- 


3610 


10004 


— 


1340 


650 


= 


469 


760 




2120 


10006 


_ 


1567 


652 


= 


1847 


800 


- 


1143 . 


1000B 


— 


1517 


654 




3233 


805 


— 


3305 ' 


20000 


— 


517Ó 


656 




1753 


810 


- 


4459 


20001 


- 


3468 


658 




2198 


815 


— 


1928 


20005 


— 


9275 


660 




5728 


820 




4060 


20006 




8483 


662 


= 


1663 


825 


= 


2714 


20007 




16353 


665 


- 


2939 


840 




3734 


20008 


- 


2636 


666 




2917 


845 


- 


1602 


20009 




1050 


667 


= 


2133 


846 


— 


164 


20010 




143 


66S 




932 


900 


= 


3262 








670 




4096 


910 




1952 


TaTñL= 


370203 


672 




1233 


920 




143 








673 




3497 


950 




1584 









254 



255 




Treinta y una 2 




En este juego, el MSX, te desafia a una mano de cartas; se suman los puntos de cada 
carta y gana el que más cerca esté de 31 , pero sin sobrepasarlas, ya que, si lo haces, pierdes 
(o el MSX. si es éste quien la sobrepasa). 

Los puntos de las cartas son: 

Rey 13 

Dama 12 

Jota 1 1 

As 1 

Resto de cartas, su número. 
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SUGERENCIAS AL PROGRAMA 



El MSX actúa de forma sencilla, se planta cuando alcanza 25; pero si, aun asi, tú la 
superas, cambia de táctica memorizando las cartas utilizadas y calculando las probabilida- 
des de la carta siguiente. Puedes incluso hacer un poco de trampa, mirando un instante la 
siguiente carta (con las líneas 300-310). 



Variables del programa 

Ml% M2^ Mensajes. 
MC(Í, J) Matriz de cartas. 



BC(I) Baraja de cartas, 

se Siguiente carta de la baraja. 

AB Apuestas de esta baza, 

BC Balance de la cuenta. 

PJ Puntos jugador. 

PO Puntos ordenados. 

LC Localización de la carta 

D Descarte. 

CO Número de cartas del ordenador. 

CJ Número de cartas del jugador. 



O 

o 
o 
o 
o 
o 
o 
o 



Inicialización 



10 KEY OFF: SCREEN 1,2: CGLOR 15 

,4,7 

15 FOR 1=1 TO 32: READ Q: A*=A*+ 

CHR$(Q): NEXT: SPRITEÍ (S) =A*: 
ñ$=" " 

20 FOR 1=1 TD 32: REñD Q: A*=A*+ 

CHR$(Q): NEXT: SPRITEÍ- ( 1) =A*: 
ñ$=" " 

25 FOR 1=1 Tü 32: READ Q: A*=A$+ 

CHR*(0): NEXT: SPRITE* Í2) =A*: 

30 FGR 1=1072 TO 1143: READ Q: V 

POKE I,Q: NEXT 

.35 PRINT: PRINT: PRINT"^„^„_^^T 

REINTA„Y„UNA": VPQKE 6152,134 
:FOR 1=6153 TO 6167: VPDKEI, 
135: NEXTiVPDKE 6168,136: VPO 
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KE 6200,137: VPGKE 6232,137: 
VPOKE 6184,141: VPOlíE 6216, 
141 

36 FGR 1=6281 TG 6295: VPOKE I, 

139: NEXT 
40 VPGKE 6264,137: VPQKE 6296, 

138: VPOKE 6248, 141: VPDKE 

6280, 140 

45 FOR 1=384 TG 463: K=VPEEKÍI): 

VPOKE I, INTíK/4) : NEXT 

50 FOR 1=1 TO 6: PRINT: NEXT: C= 

100: PRINT" EmpÍBzas„con„100^ 

pesetas": PRINT: PRIWT"^ ^P 

U.1 sa„una„tec la" 

55 IF INKEY$="" THEN E=RND ( 1 ) : G 

OTO 55 

60 CLS: DIM MC(52,2> ,EC(52? 

65 FOR 1=1 TG 4: POR J=l TO 13: 

K=n-l)*13+J: MC(K,1)=^J: MCÍK 
,2)=):: NEXT: NEXT: POR 1 = 1 TO 
52: BC{I)=I: NEXT 

75 C=100: SC=1 

80 PRINT TAB(12) "Tu^mano" 

90 PRINT CHR$(ll);:M.l$^'Tor„favo 

r„espera„que^baraj e " : M2í="l a 
sacarlas. " : 6 

OSUB 1000: 60SUB 1100: 60SUE 
1200: IF SC=1 THEN GCSUB 400 

95 60SUB 300: GOSUB 200: 60SUB 

200 



Control 



100 IF (ÍST) AND 1)=1 THE^-j 102 EL 

SE GOSUB 350 
102 IF VPEEK-:(6156)=77 THEN 130 EL 

SE IF ( (ST) AND i) OI THEN 

110 

105 FGR 1=1 TO 5: BEEP: PRINT CHR 

$(11) TABÍ20): FOR 12=1 TO 
300: NEXT: PRINT CHRÍ(ll) TAB 
(10) "Mano^del^MSX" CHRÍÍU) ; : 
NEXT: FOR 1=6176 TO 6623: VPO 
KE 1,32: NEXT 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



1©6 
107 

108 



110 

120 



125 
130 



131 



135 
140 



200 
205 

210 

215 
240 



250 



FOR 1=0 TD 2: PUT SPRITE I, 
(100,200): NEXT 
FOR i 1 = 1 TO CQ: IF Il<7 THEN 
LC=6179+3*I1 ELSE LC^-6278+3* ( 
11-7) 

D=CHÍI1): 60SUE 250: NEXT: FO 
R 1=1 TO 15: PRINT TñB(15)"Pu 
ntos: ";Pü;CHR$(ll) 
IF Í(ST) AND 1)=1 THEN 130 
Ml*=" Tu„siguiente^carta„„^«„„ 

: M2*="^„^^^_„„v.^^ 

GÜSUB 100S 
GOSUB 200: IF PJ>3Í THEN 500 
IF((ST) AND 2) =2 THEN 135 ELS 
E Ml*="Siguients^carta_del„MS 
X„": M2*="^^___„_^„_^ 

,": GOSUB 1000: FOR T=l 

TO 1500: NEXT: 60BUB 300 
IF (P0>24 AND P0<32) THEN ST= 
((ST) OR 2) ELSE IF F0>31 THE 
N 600 

IF ST=3 THEN 450 
GOTQ im 



Mano del jugador 



D=BC(SC): SC=SC+1 

FJ=Pa-(-MC(D, 1) : GOSUB' IlOO: CJ 

=CJ + 1 

IF CJ<7 THEN LC=6179í-3*CJ ELS 
E LC=6278+3*(CJ-7) 
GOSUB 250 
RETURN 



Dibujar carta 



VPOKE LC,134: FOR I=LC+1 TO L 
C+5: VPOKE 1,135: NEXT: VPOKE 
LC+6. 136: FOR I=LC+33 TO LC+ 
289 STEP 32: FOR J=0 TO 4: VP 
OKE 1-1,141: VPOKE 1+5,137: V 
POKE I+J,142: NEXT: NEXT 
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255 VPOKE LC+32O,140: FOR .I=LC+ 

321 TO LC+325: VPOKE 1,139: 
NEXT: VPOKE LC+32Ó, 138 

260 K1^MC(D,2): IF Kl=-1 THEN Kl=3 

ELSE IF Kl=2 THEN Kl=4 ELBE 
IF Kl=3 THEN Kl=5 ELSE Kl=6 

265 K2=MC(D, 1): ON K2 GOTO 270, 

272, 274, 276, 279, 280, 282, 284, 
286, 288, 290, 292, 294 

270 VPOKE LC+33,65; VPOKE LC+163, 

Kl: VPOKE LC+293,65: RETURN 

272 VPOKE LC+33,50: VPOKE LC+t7, 

Kl; VPOKE LC+25YjK1: VPOKE LC 
+293,50: RETURN 

274 VPOKE LC+33»51: VPOKE LC+67, 

Kl: VPOKE LC+163,K1: VPOKE LC 
+259, Kl: VPOKE LC+293,51: 
RETURN 

276 VPOKE LC+33,52: VPOKE LC+293, 

52: VPOKE LC+66,Ki: VPOKE LC+ 
6B,K1: VPOKE LC+25S,K1: VPOKE 
LC+260,K1: RETURN 

278 VPOKE LC+33,53: VPOKE LC+293, 

53: VPOKE LC+66,K1: VPOKE LC+ 
68, Kl: VPOKE LC+258,K1: VPOKE 
LC+260,K1: VPOKE LC+I635KI: 
RETURN 

280 VPOKE LC+33,54: VPOKE LC+293, 

54: VPOKE LC+67, Kl: VPOKE LC+ 
130, Kl: VPOKE LC+132,K1: VPOK 
E LC+19¿I,K1: VPOKE LC+196,K1: 
VPOKE LC+259,K1: RETURN 

282 VPOKE LC+33,55: VPOKE LC+293, 

55: VPOKE LC+67, Kl: VPOKE LC+ 
130. Kl: VPOKE LC+Í32,K1: VPOK 
E LC+194,K1: VPOKE LC+196,K1: 
VPOKE LC+258,K1: VPOKE LC+26i3 
,K1: RETURN 

284 VPOKE LC+33,56: VPOKE LC+293, 

56: VPOKE LC+t6,Kl: VPOKE LC+ 
68, Kl: VPOKE LC+130,K1: VPOKE 
LC+132,K1: VPOKE LC+194,K1: V 
POKE LC+196,K1: VPOKE LC+25B, 
Kl: VPOKE LC+260,K1: RETURN 

286 VPOKE LC+33,57: VPOKE LC+293, 
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288 



!S9 



290 



291 
292 



293 
294 



295 
298 



57: VPGKE LC+163,K1: VPGK.E LC 
+66, Kl: VFÜKE LC+6P,K1: VFCKE 
LC+130,K1: VFÜKE LC+132,K:1: V 
PGKE LC+194,Kl: VPOKE LC+196, 
Kl: VPÜKE LC+258,K1: VPOKE LC 
+260, Kl: RETURN 
VPOKE LC+33,49: VPOKE LC+293, 
48: VPOKE LC+292,49: VPOKE LC 
+34,48: VPOKE LC+99,K1: VPOKE 
LC+227,Kl: VPOKE LC4 66,K1: VF 
OKE LC+68,K1: VPOKE LC+130,K1 
: VPGKE LC+132,K1 
VPOKE LC,194,K1: VPGKE LC+196 
,K1: VPOKE LC+25S,K1: VPGKE L 
C+26,K1: RETURN 
I=S*INT( CLC-6014) /32) : J=8*(L 
0-6014-32*1): PUT SPRITE (J 
+4,1+4): FGR I=LC+13ñ TO LC+ 
194 STEP 32: FDR J=fd TO 2: VP 
OKE I+J,32: NEXT: NEXT: VPOKE 
LC+33,74: VPOKE LC+293, 74: VP 
OKE LC+37,K1 
VPOKE LC+289,K1: RETURN 
I=S*INT{ íLC-6014) /32? : J=Q*(L 
C~6(514-32*I) : PUT SPRITE 1,(J 
+4,1+4): FGR I=LC+13Pí TO LC+ 
194 STEP 32: FGR J=y TG 2: VP 
OKE I+J,32: NEXT: NEXT: VPOKE 
LC+33,81: VPOKE LC+293, 81: VP 
OKE LC+37,K1 
VFQK.E LC+2e9,Kl: RETURN 
I=8*INT( (LC-6ei4) /32) : J=8*ÍL 
C-6014-32*!) : PUT SPRITE 2, (J 
+4,1+4): POR I=LC+130 TO LC+ 
194 STEP 32: FGR J=ií TO 2: VP 
OKE I+J,32: NEXT: NEXT: VFQKE 
LC+33,75: VPOKE LC+293, 75: VP 
GKE LC+37,K1 
VPOKE LC+289,K1: RETURN 
RETURN 



m 



Mano del MSX 



C0=C0+1 
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3?Í 
307 

308 

310 



350 



355 



356 
360 

365 

370 



400 



410 
440 



D=BC(SC): SC=SC+1: P0=P0+MC(D 
,1): CHÍCO)=D 

IF(CST) AND DOl THEN 310 EL 

SE IF C0<7 THEN LC=6179+3#C0 

ELSE LC=6278+3*(C0-7) 

BGSUB 250: FOR I=1TG 15: FRIN 

T: NEXT: PRINT TAB ( 15) "Puntos 

:";fo; CHRídl); 

RETURN 




GOSUE 130<?: FOR 1 = 1 TC IB: PR 
INT: NEXT: IF ABOO THEN 355 
ELSE 360 

INFUT-Cambias^tu^apuesta^íS/N 
)";X$: IF X$="n" OR X$="N" TH 
EN 365 ELSE INPUT"Cuantc^fnas" 
;X$: IF VAL(X$)>10e0 THEN PRI 
NT CHR$Í11);: GOTO 350 ELSE I 
F VALÍXÍX0 THEN PRINT CHRÍ ( 
11);: GOTO 350 ELSE EL=1 
IF EL=1 THEN AB=AE-^VAL í X*) : C 
=C-VAL(X$) : GOTO 365 
INPUT"Apuesta„inicial"?XÍ-: IF 
VAL(X$)>1000 THEN PRINT CHR$ ( 
11);: GOTO 350 ELSE AB=VAL(X$ 
): C=C-VALÍX$): GOTO 365 
IFÍ(ST) AND 1)=0 THEN INPUT"0 
tra^carta„(S/Ní "ñ >;$: IF X$<>" 
S" AND Xí<>"s" THEN. ST=(ST) 
DR 1 

PRINT CHRídl);: BGSUB 1300: 
GDSUB 1200: EL=0: RETURN 



Barajar cartas 



FOR 1=1 TO 100: J=INTfRNDÍl)* 

52+1): K=INTíRND(l)*52+l): SW 

AP BC(J) jBCÍK) 

NEXT 

RETURN 
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450 



460 



500 



505 



510 
520 



600 



Descubrir las cartas 



GOSUB 1300: FOR 1=1 TO 18: PR 
INT: NEXT: PRINT'-El„MSX„tiene 
";Pa; "puntos": PRIMT; K4=31~P 
O: K5=31-P.J: If K:4=K5 THEN PR 
INT"-Estais^empatadQs! ": PRIN 
T"-Otra^fiianQ! ": C=C+AB: GOSUB 
400: CS: SC=1: GOTO 52i5 
FOR T=l TO 2000: NEXT; IF K.4> 
K5 THEN 600 ELSE 500 



Pierde el jugador 



PLAY"m59000s816n2r6n3r6n2": 6 
OSUB 1300; PRINT CHR4 í 1 1 ) ; : F 
GR 1=1 TO 17: PRINT: NEXT: PR 
INT"Has^perdido„esta„fnano": P 
RINT"Tus^punt05„5on ; PJ ; " , ^1 
os„del„„MSX: ";P0: ¡NPUT"Otra„ 
íiiano„íS/N) ";X* 

IF X*="S" OR Xí="3" THEN IF S 
C<25 THEN PRINT"Bien„l apolisma 
^baraja" FOR T=l TO 2000: NEX 
T: CLS: GOTO 520 ELBE PRINT"B 
ien^otra^baraja" ; : FOR T=l TO 
2000: NEXT: CLS: SC=1: GOTD 
520 

SOTO 900 

AB=0: PJ=0: ST=^0: PO=D; C0=0: 
CJ=0: FOR 1=0 TO 2: PüT SPRIT 
E 1,(100,200): NEXT; SOTO SO 



Gana el jugador 



PLñY"Ilsl4m3000n44", "1 l5l4fTi20 
00n27": GOSUB 1300: PRIMT CHR 
$íll);: FOR 1=1 TO 17: PRINT: 
NEXT: PRINT"Ha5„ganatío^ssta^m 
ano": PRINT"Tus^pun tos^son " ; P 
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605 



610 
620 



900 



910 



J; ",^los„del^^M3X: "ÍPO: IMPU 
T"Otra mano (3/hS>";X$ 
IF X*="S" OR Xt="5" THEN IF S 
C<25 THEN PRINT"Bien^la_misma 
abaraja": FOR T=l TD 2000: NE 
XT: CLS: GOTO 620 ELSE PRINT" 
Bien^otra^baraja"; : FOR T=l T 
O 2000: NEXT: CLS: SC=1: 6QT0 
620 

C=C+2*AB: GOTO 900 
C=C+2*AB:ñB=0; P.J=0: ST=0: FO 
=0: C0=0: CJ=0: FOR 1=0 TO 2: 
PUT SPRITE 1,(100,200): rJEXT: 
GOTO 80 



Fin de juego 



SCREEN 1: IF C<=0 THEN PRINT" 
Debes^"; : PRINT U3IN6" tttt 
";-C; :PRINT"„Peseta2": PRINT: 
PRINT"Los^cobradores„te^visi t 
aran": FRINT"dentro„de„unos„d 
ias. ": END 

PRINT"Ha5„ganadG "li PRINT US 
ING C: :PRINT"^Pese 

tas": PRINT: PRINT"— Apuesto^ 
a„que„no„l o„haces " : PRINT"dos 
^veces! 1 "t END 



1000 
1010 



1100 



1110 



Imprimir mensaje 



FOR 1=1 TO 18: PRINT: NEXT: P 
RINT MI*: PRINT M2$; CHR* ( 1 1 ) J 
RETURN 



Puntuación 



FOR 1=1 TO 15: PRINT: NEXT: P 
R INT TAB ( 15) "Puntos : " ; PJ ; CHR* 

(11); 

RETURN 
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Imprimir cuenta 



1200 



1210 



10000 



10010 



10020 



FQR 1 = 1 TD 2o: PRirJT: NEXT: F 
RINT TñBÍ4) "Tu_cuenta„ss"; : P 
RINT USING "######. ; C; : FR 
INT CHRÍ (11) j 
RETURN 





Area de mensaje en 


blanco 


1300 


FOR 1=^0722 TO 


6879: VPOKE I, 




32; NEXT 




1310 


RETURN 






Datos de sprites 



DATA 255.127,42,31,19,29,9,16 
,32,56, 16,28, 16, 16, 17. 14,255, 
254, 172,248,248,243, 1B8, 136, 
116,92,84, 108, 106,218, 151.7 
DATA 0,5.11,15,31,62,60,121, 
120, 120, 120. 124. 124, 124,62,31 
, 128,80,232,248,28, 12, 14,39,7 
, 7, 199, 15, 207, 15,30,252 
DATA 4,10,15,5,7,5.10.10,10, 
10,21,21,26,54,73,48. 68, 170, 
254,84,252, 72, 136, 152, 132, 130 
,28,8,24,8,8,240 



Datos de sprites pequeños 



10100 


DATA 


0,0,0,0,3,7, 


15, 15 


10102 


DATA 


0,0,0,0.255, 


255,255,255 


10104 


DATA 


0,0,0,0, 192, 


224,240,240 


10106 


DATA 


240,240,240, 


240,240,240, 




240,240 




10108 


DATA 


240,240,224, 


292,0,0,0,0 


10110 


DATA 


255,255,255, 


255,0,0,0,0 


10112 


DATA 


15, 15,7,3,0, 


0 , ■ 0 


10114 


DATA 


15, 15, 15, 15. 


15, 15, 15, 15 


10116 


DATA 


255,255,255, 


255,255,255, 




255,255 
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Tabla de 



claves 



10 = 1215 

15 = 3995 

20 = 3996 

25 = 3997 

30 = 1931 

35 = 10459 

36 = 2095 
40 = 2984 
45 = 3631 
50 = 6973 
55 = 2290 
60 = 1128 
65 = 7614 
75 = 908 
80 = 1212 
90 - 11488 
95 = 1071 
100 = 1925 
102 = 3452 

105 = 10636 

106 = 1926 

107 = 5030 

108 = 4597 
110 = 1417 
120 = 5587 
125 = 1520 

130 = 10844 

131 = 4117 
135 = 1017 
140 = 489 
200 - 1601 
205 - 2497 
210 = 3997 
215 = 410 
240 = 143 







1 1 749 






486S 


260 




5790 


265 


_ 


3980 


'^70 


"i 


3099 
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4014 






5330 






A51 4 






7R43 






~ ^0 1 






1 ñPAT 












1 "TRñ^ 

í -JOV'.' 














Ji. 7'.' 






















1 ÍaA~^ 


'?Q¿L 


I 


1 c¡ 1 AR 


"^95 




1 043 


298 





143 


300 




B05 






"^0 1 A 

■jV i ti 


30 / 






O y 8 




A DO 


310 




143 


350 


— 


3166 






1 0 íj íj 






M-¿ /V 


360 




9239 


365 




6880 


370 




1640 


400 




6143 


410 




131 



44y 




14-i 






1 i. "7/1 C 

ló .S45 


-4o y 




2Dy¿! 












1 TT 1 T 


^ 1 ñ 
DI y 










A 1 T"^. 


Artft 

□y? 




i / -_■ / 0 


Afl^ 






i. 1 í> 
0 1 y 






A'7Cí 




TAPO 


vyy 




1 1 RCiD 


V i y 




V / — 'D 








1 ñ 1 ñ 










1 R 


1 1 1 Cl 




X T 












X T J 


1 3í^ñ 






1 31 ñ 




1 


1 V ^ V 




91 34 


1 ññ 1 ñ 




RA 1 A 


1 0^0\'7C^ 




7A7P 


1 1 




1 ñT"?" 


1 1 ñT* 

1 ' J 1 Víi 




1 "ÍPA 






1 "T7=i 
1 0 / □ 


101^6 




lcf64 


10108 




1403 


10110 




1416 


10112 




1025 


10114 




1404 


10116 




18BB 



TOTAL= 526351 



4 



267 



Diseño de los sprites 



-www 

- - - 4^^^^^^^^ 
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a ■ ■■ 
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s 
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JOTA 



!«■■■ a a 3 

■ ■■■ m 

■■ ■■■■ 

«s »«■■■ 

■ ' «« '■■ 

■ < «■■■■■ 

■ «■■■■■ 
« ' 1 ■■■ ■ 


i 







REINA. 
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Minotauro 

Mastermind 
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WUELTA • 1 «IVEL 3. 




Tipo de juego: 
KDUCATIVO 



Este es un juego estratégico que prueba la capacidad mental, incluso de los más expe- 
rimentados jugadores. El reto es encontrar un número entre 0 y 1P00, abriéndote paso 
a través de un muro de número y símbolos sin ser atrapado por el minotauro. 

Tu puntuación es la suma de los digitos sobre los que te poses; por lo tanto, cuanto 
más bajos sean los puntos, mejor. Cuando consigas salir por la parte superior del bloque, 
tienes una oportunidad para averiguar el número. 

Los efectos de los símbolos no numéricos son: 

X Te da una pista. 
? Tiene un valor aleatorio. 
' Altera tu puntuación aleatoriamente. 
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SUGERENCIAS AL PROGRAMA 



Este juego se puede complicar añadiendo más pistas y símbolos diferentes (lineas 65(}- 

708). 

Tu posición la indica un punto intermitente, que controlas con: 

(P> Arriba. < : > Abajo/derecha. 

<P) Arriba/izquierda. <(5)> Derecha. 

( ;> Abajo. <L> Abajo/izquierda. 

<0) Izquierda. < T ) Atrapado. 

< - > Arriba/derecha. 



Variables del programa 



ND 


Nivel de dificultad. 


V, UP, T 


Número vuelta; última puntuación; total. 


NS 


Número secreto. 


DI, D2, D3 


Dígitos del número secreto. 


PJ 


Posición jugador. 


PM 


Posición minotauro. 


C,Q 


Efectos luminosos. 


TP 


Tiempo. 


NA, N 


Número aleatorio; semilla del número aleatorio. 


CM, CJ 


Carácter bajo el minotauro y bajo el jugador. 


JF, JC 


Fila y columna del jugador. 


NP 


Número de pistas. 


T(I) 


¿Pistas utilizadas? 


Gl, G2, 03 


Dígitos del número sugerido por el jugador. 


MC, MF 


Columna y fila del minotauro. 



O 

o 
o 
o 
o 



Iniclalización 



4 B05UB 20000 

5 TP=1: INTERVAL ON; ON INTERVA 
L=10 60SUB 7 

6 6DTD 10 

7 TP=TP*2: RETURN 

10 KEY OFF: SCREEN It CLS: COLOR 

15,1,1: PRINT"__MIMOTAURO^M 
ASTER„MIND" 
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15 PRINT: PRINT: PRIWT; PRINT 

N I VEL^DE„DI F I CULT AD„ í 1 -9 ) " ; 

20 ND=VALÍINKEY$) : IF ND< 1 OR ND 

>9 THEN 20 ELSE PRINT ND 

22 FOR 1=1088 TO 1344 STEP 64: F 
OR J=0 TO 7: READ Q: VPOKE 1+ 
J,Q: NEXT: NEXT 

23 VPOKE 8209,49: VPOKE 6210,97: 
VPOKE 8211,177: VPOKE 8212, 
145; VPOKE 8213, 129 

25 FOR 1=1 TO 8: PF.IMT: NEXT: PR 

INT "PULSAJJNA^TECLA^PARA^EMP 
EZAR" 

30 IF INKEYÍ^"" THEN 30 

35 INTERVAL OFF: IF TP>1000 THEN 

TP=TP/3: GOTO 35 
40 T=0: WP=0: FOR ]>=1 TO 10: T(I 

)=0: NEXT: V=l: NS=INTÍTP): N 
=N.5: D1 = INT(NS/100) : D2=INTí( 
NS-D1*100) /10) : D3=INTíNS-Dl* 
100-D2*10) 



Jugada nueva 



100 CLS: PJ=6767: PM=6575 

110 FOR 1=6304 TO 6752 STEP 32: F 

OR J=l TO 30: GOSUB 900: Kl= 
INT(NA*13>: IF KKie THEN VPO 
KE I+J,Kl+48: GOTO 130CONT 
115 IF Kl=10 THEN VPOKE I+J,144: 

GOTO 130 

120 IF K:1=11 THEN VPDKE I+J,152: 

GOTO 130 
125 VPOKE I+.J,160 

130 NEXT: NEXT 

140 VPOKE 6767,48: UP=0: CM=VPEEK 

ÍPMJ : VPOKE PM, 136: VPOKE 
6319,168: CJ=4e 

150 PRINT "„VUELTA„#"?V;"««„^NIVE 

l„";nd; CHRídi); 

160 GOSUB 1000 
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200 
205 
210 
215 
220 

225 
230 
240 
242 

245 
250 
255 
260 
265 
270 
275 
280 
285 
290 



300 
302 
304 
305 
310 
312 
314 
315 
320 
322 
324 
325 
330 
332 
334 
335 



Editor 



C=0:Q=1 

x*=ink:ey*: C=C+1 

IF C=7 THEN Q=l-Q: C=0 

IF QOO THEN 230 

IF VPEEKÍPJ)=255 THEN VPÜKE P 

J,CJ: Q=l: GQTO 230 

VPOKE PJ,255: Q=l ■ 

IF X$-"" THEN 205 

GOSUB 950 

IF VPEEK(PJ)=255 THEN VPOKE P 
J,CJ 

OR X$="p" THEN 300 
□R X$="o" THEN 310 
□R X$="2" THEN 320 
" THEN 330 
THEN 340 
THEN 350 

ÜR X$="l " THEN 360 
THEN 370 



IF X*="P" 
IF X$="0" 
IF X*="@" 
IF X*=" 
IF X$="-' 
IF X$="0' 
IF X$="L' 
IF X$=":' 



IF XÍ="T" GR X$="t 
6DTÜ 205 



THEN 360 



Comprobar movimientos permitidos 



IF VPEEK(PJ-32)-32 THEN 205 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ=PJ-32 
GGTQ 400 

IF VPEEK(PJ-1)=32 THEN 205 
UP=VPEEKCPJ)-43 
VPGKE PJ,32: PJ=PJ-1 
GOTO 400' 

IF VPEEKÍPJ+1)=32 THEN 205 
UP=VPEEK(PJ)~48 
VPOKE PJ,32: PJ=PJ+1 
60TÜ 400 

IF VPEeK(PJ+32)=32 THEN 205 
UP=VPEEK(PJ)-48 
VP0K:E PJ,32: PJ=PJ+32 
GOTO 400 
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340 
342 
344 
345 
350 
352 
354 
355 
360 
362 
364 
365 
370 
372 
374 
375 
380 

385 



IF VPEEK<PJ-31)=32 THEN 205 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ=PJ-31 
GOTO 400 

IF VPEEKÍPJ-33)=32 THEN 205 
UP=VPEEK(PJ)-48 
VPOKE PJ,32: PJ=PJ~33 
GOTO 400 

IF VFEEKCPJ+31)=32 THEN 205 
UP=VPEEK(PJ)-4S 
VPOKE PJ,32: PJ=PJ+31 
GOTO 400 

IF VPEEKÍPJ+33J=32 THEN 205 
UP=VPEEK(PJ)-49 
VPOKE PJ,32: PJ=P.J+33 
GOTO 400 

JF=INT(PJ/32) : aC^PJ-JF*32: 
GOSUB 500: IF PJ<"/PH THEN 380 
GOTO 800 



Comprobar movimiento 



JF=INTíPJ/32) 



400 CJ=VPEEK(PJ) 

JC=PJ-JF*32 
402 IF (UP>9) OR 

405 Kl=VPEEKíPJ) ; 

GOSUB 600 
410 IF Kl=144 THEN 

415 IF Kl=160 THEN 

420 IF Kl=168 THEN 

422 Kl=VPEEK(PJ)-4e: 

1>9 THEN K1=^0 
425 IF U+K1>=10-ND THEN GOSUB 500 

430 T=T+K1: GOSUB lOOO 

435 IF P.J=PN THEN 800 

440 GOTO 200 



(UP<0) THEN UP=0 
IF Kl-152 THEN 

GOSUB 650 
GOSUB 750 
20^0 

IF KKO OR K 



Movimiento del minotauro 



500 VPOKE 8198,31: MF=INT (PM/32) 

MC=PM-MF*32 
502 IF MCOCJ THEN 508 
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504 

506 
508 
5ie 

512 
515 
517 

520 
522 
540 

542 
544 
546 
550 

570, 



600 
610 



650 
652 
654 

656 
658 

660 



662 
665 



IF PM>FJ THEN MF=MF-1: GOTO 
540 

MF=MF+1: BOTO 540 

IF MFOFJ THEN 515 

IF MOCJ THEN MC=KC-1: GQTO 

540 

MC=riC+l: GÜTO 540 

IF PM>PJ THEN 522 

IF riC<PJ THEN MC=MC+1: GOTO 

540 

MC=MC-1; GOTO 54(3 
MF=MF-1 

K=32*MF+riC: VFOKE 3 198, 241 : IF 

VPEEVaK.)=136 THEN RETURN 

VPOKE PMjCB 

PM=K: CB^VPEEKÍPM) 

VPOKE PM, 136 

PLñY "n2" 

RETURN 



Jugador sobre (?) 



6QSUB 900: I=INT(NA*10) : VpOKE 
PJ, 1+48 

CJ=I+48: RETURN 



Jugador sobre (X) 



VPOKE PJ,48 

IF NP>=9 THEN EEEP: GOTD 670 

60SUB 900: fí:2=INT ÍNA#9+1 ) : IF 

T(K2)=1 THEN 654 

T(K2)=1: NP=NP+1: BEEP 

ON K2 GOTG ¿60,665,670,675, 

680,685,690,095,700 

PRINT: PRINT: PRINT"Suma^de„l 

o5„digi tos^del ": PRIMT" numero^ 

secreta„es„; " í 

PRINT D1+D2+D3.: PRINT CHR$(il 
) ; : RETURN 

PRINT: PRINT: PRINT"El„numero 
^secreto^es^: 
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666 IF NS/2=INT(NS/2) THEN PRINT" 
Par": GOTO 668 

667 PRINT" Impar" 

668 PRINT CHR$Í 11);: RETURN 

670 GOSUB 9OO:K=INTtNñ*200)+NS: J= 

K-200: IF J<0 THEN J=0 

672 IF KM000 THEN K=1000 

673 PRINT: PRINT: PRINT "El ^numero 
„esta„entre"; J: PRINT"y";K 

674 PRINT CHR^dl) í : RETURN 

675 PRINT: PRINT: PRINT"E1 ^numero 

" ; 

676 IF NS/5=INTíNS/5) THEN PRINT" 
es„dívisible":GOTO 678 

677 PRINT"no^es^di visible" 

678 PRINT"pQr^5": PRINT CHRÍ ( 1 1 ) ; 
: RETURN 

660 L=D1: IF D2>L THEN L=D2 

681 IF D3>L THEN D3=L 

682 PRINT: PRINT; PRINT"E1 ^ínaycr„ 
digito^del^numera" : FRINT"sec 
reto^es^"; L j CHRí(ll);: 
RETURN 

685 PRINT: PRINT: PRIMT"El„primer 
^dlgito„del„nu.merG": PRINT"Be 
creto^es" j 

686 IF Dl>5 THEN PRINT^Hayor^que^ 
5": GOTO 689 

687 IF DK5 THEN PRINT^Menor^que^ 
5": GOTO 689 

688 PRINT"Igual„a^5" 

689 PRINT CHR*íll)í: RETURN 

690 PRINT: PRINT: PRINT"La„5uma„d 
e^los^digitos" : PRINT"primero 
^y^tercero^es" ; 

692 PRINT D1+D3Í CHR* ( 1 1) i 

RETURN 

695 PRINT: PRINT: PRlNT"Uno^de„lo 
5„di gi tos^del ": PRINT "numero^ 
secretores" ; 

696 GOSUB 900: K=INTíNA*3): IF K= 
0 AND NS>99 THEN PRINT D2: GO 
TO 699 

698 PRINT D3 

699 PRINT CHRSdDis RETURN 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



700 

701 

702 

703 

704 

705 

706 

707 
708 



750 
752 
754 



756 



760 



S00 

B05 
B10 
815 
820 



PRINT: PRINT: FRINT"El^prDduc 
t o„de„l os„d i g i tas " : PR I NT " que 

IF D1=0 AND D2=0 THEN PRINT 
D3: GOTO 708 

IF D1=0 AND D3=0 THEN PRINT 
D2: SOTO 708 

IF D1=0 THEN PRINT D2*-D3: GOT 
O 708 

IF D2=0 AND D3=0 THEN PRINT 
DI: SOTO 708 

IF D2=0 THEM PRINT DUD3:G0T0 
708 

IF D3=0 THEN PRINT D1*D2:SGT0 
708 

PRINT D1*D2*D3 

PRINT CHR$(11);: RETURN 



Jugador sobre ('¡ 



VPOKE PJ,4B 

IF T<11 THEN RETLIRN 

GOSUB 900: I = INT (NA-nOO) : IF 

I>50 THEN T=T-10: PLAY"LÓ4N10 

N8N6N4": RETURN 

IF K10 THEN T^T+5í?.- PLAY"L32 

N10N8N6N4NÍ0NSN6N4": RETURN 

T=T+ 1 0 : PLA Y " L64N 1 0MBN6N4 " : 

RETURN 



Fin de juego 



CLS: IF PM^PJ THEN 820 

POR 1=1 TO 8: PRINTTABÍ2*!} "E 

NH0RABUENA":PRINT: NEXTsPRINT 

PRINT"HAS^VENCIDD„AL^MINOTAUR 

□ " : PR I NT " TU^PUNTUAC I ON^ES^ " ; T 

PRINT"EN"; V; VVUELTñS": GOTD 

840 

FOR 1=1 TG 5: PRIMT TAB(2*I)" 
VENCI O^EL^MINOTAURO" : PRINT: 
NEXT: PRINT 
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825 

840 

845 
846 



900 

910 
920 



PRINT"El„numerQ„secreto„era„" 
;NS 

PR I NT : PR I NT *' PULS A^UNñ^TECLA^ 
PARA " : PR INT " JUGAR^OTRA^VEZ " 
X$=INKEYÍ: IF Xí="" THEN S45 
RUN 5 



Número aleatorio 



NA=(9999*NA+N) MOD 5997!: NA= 
NA/59971 

IF NA<.2 THEN N=NA* 10000+1 
RETURN 



Mensaje en blanco 



950 FOR 1=6208 TO 6271: VPOKE I 

32: NEXT 
970 RETURN 



Puntuación 



1000 FOR 1=1 TO 21: PRIHT: NEXT: P 
RINT"PUNTUACIüN„TOTAL";T: PRI 
NT"ÜLTIMA„PÜNTUACICN" ; UPi CHR$ 
(11) ; 

1010 RETURN 



Adivinar número 



2000 PRINT: PRINT: PRINT'^ADIVXNA„E 

L„NUriERO„SECRETa" 
2005 I NPUT " Y„PULSA„ < RETURN ) " Ü K$ 
2010 I=VAL(K$): IF I=NS THEN 800 
2015 61=INTÍI/100) ; 62=INT ( í I-Gl* 

100) /10): G3=I~G1*100-G2*10 
2020 CLS: PRINT: IF D1=G1 THEN PRI 

NT "El ^pr i mer^di g i to^es^correc 
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to":PRINT 

2C25 IF D2=G2 THEN F'RINT"E1 ^segund 

Q^digito„es^correctD":PRINT 
2030 IF D3=G3 THEN PRrt-4T"El^tercer 

^digi to^ee^correcto" 
2035 IF DlOGl AMD D2<>S2 AND D3<> 

G3 THEN PRINT"Ningun^digito„e 

s^correcto" 
2040 FGR 1=1 TO 2000: NEXT 
2045 V=V+1: GOTG 100 



Datos de sprites pequeños 



10000 DATA 165, 126,21?, 126, Í02, 126, 
82,60 

10002 DATA 136, 136,80,32,30, 136, 136 

10004 DATA 112, 136,8, 16,32,0,32,0 
10006 DATA 32, 168, 112,32, 112, 166,32 
,0 

10008 DATA 16,56,124,254,124,56,16 



Instrucciones 



20000 CLS : I NPUT " QU I tRES„ I NSTRUCC I ON 
ES„(S/N)?";Xt: IF X$="N" OR X 
$=:"n" THEN 20010 

20001 CLS: PRINT'T'ARA^MOvERTE^EN^EL 
^LABERINTO^PULSA^: " 

20005 PR I NT : PR I NT " P-p „^^ARR I BA " : 

PRINT"^^G-o IZQLfIERDA": PRI 

WTV-@-2„«^DE;RECHA": FRINT"„^ 
; ^„-^«ABft J O" í PR 1 MT " ^„-^^„^«A 
RRIBA-DERECHA: 

20006 PR I NT " ^^0^^^^v-ARRI BA- 1 ZQU I ERDA 

": PRIWT"„„L-1^ ABAJn-IZQUIE 

RDA " : PR I NT " „^ : ^^^„^AB A JO-DER 
ECHA": PRINT"„„T-t„^^ATRAPADO" 

20007 PR I NT : PR I NT : PR UH S I „P I S AS^ : " 
: PRINT: PRINT"^X„^_TENDRAS^ 
UNA^P i STA " : PR IN'T " ^?^^^^SU11AR 



O 
O 
O 



20008 
20009 

20010 



ñS„PUWTÜñC I ON„^„^„^„„^„^ALEñT 
ORIA" : PR INT " ^*„^^„ALTERARA^T 
U„PUNTUAC I QN„„^„^^„ ALEATOR I AM 
ENTE" 

PR I NT : PR I NT " PÜLS A^UNA^TECLA^ 

PARA3EGUIR" 

IF INKEY*=^"" THEN 20^09 

RETURN 



Tabla de claves 



4 




234 


245 


- 


1850 


352 




1391 


5 


= 


3379 


250 


— 


1823 


354 


= 


1358 


6 




403 


255 


= 


1792 


355 


= 


537 


7 




1046 


260 




V66 


360 




1806 


10 


- 


3836 


265 




970 


362 




1391 


15 


— 


2866 


270 




977 


364 


— 


1341 


20 


= 


3352 


275 




1886 


365 




537 


22 


= 


3640 


280 


= 


1013 


370 




1816 




- 


2630 


285 


= 


1914 


372 


= 


1391 


25 




4004 


290 




594 


374 


- 


1357 


30 


= 


969 


300 




1772 


375 


= 


537 


35 




3761 


302 


= 


1391 


330 




4729 


40 




12699 


304 




1311 


385 


= 


391 


100 




1486 


305 




537 


400 


— 


3883 


110 




7411 


310 




1783 


402 




2141 


115 




£238 


312 




1391 


405 






120 




2239 


314 




1327 


410 




1197 


125 




822 


315 




537 


415 




1313 


130 




320 


320 




1703 


420 




1 162 


140 




4359 


322 




1391 


422 




3276 


150 




2880 


324 




1326 


425 




2151 


160 




397 


325 




537 


430 




1254 


200 




734 


330 




1772 


435 




947 


205 




1325 


332 




1391 


440 




593 


210 




1798 


334 




1310 


500 




3133 


215 




1208 


335 




537 


502 




141Ó 


220 




3333 


340 




1806 


504 




2293 


225 




1087 


342 




1391 


506 




1297 


230 




1036 


344 




1342 


508 




1176 


240 




345 


345 




537 


510 




2275 


242 




2129 


350 




1816 


512 




1294 



515 




959 


517 





2293 


520 





1293 


522 




803 


540 


_ 


3393 


542 




545 


544 





1590 


546 


_ 


561 


550 





431 


570 





143 


600 


_ 


2555 


610 




973 


650 





469 


652 


_ 


1854 


654 





3*^33 


656 


_ 


1753 


658 


_ 


3150 


660 


— 


5399 


662 


_ 


2064 


665 


_ 


2939 


666 


_ 


3220 


667 




744 


66B 


_ 


932 


670 





4475 


672 





1542 


673 


_ 


3497 


674 




932 


675 


_ 


1669 


676 


_ 


4325 


677 


_ 


1792 


678 





1694 


680 




1767 


681 




1244 


682 




6102 



685 




5021 


686 





27^7 


687 


_ 


2755 


688 




984 


689 




932 


690 




5439 


692 


_ 


1513 


695 


_ 


5243 


696 





4285 


698 





266 


699 


_ 


932 


700 




5630 


701 




2407 


702 


_ 


2407 


703 


— 


2127 


704 


_ 


2408 


705 


_ 


2125 


706 


— 


2124 


707 




1018 


708 


_ 


932 


750 


_ 


469 


752 


_ 


863 


754 


_ 


4860 


756 


_ 


3610 


760 


— 


2120 


800 


_ 


1228 


805 


_ 


3305 


810 


— 


4344 


815 


— 


1928 


820 




4060 


825 


_ 


2714 


840 




3734 


845 




1602 


846 




164 













i 70^ 


Q'7Ca 










1 DCÍM 


i 1 y? 




1 jI"^ 


i. vyjv 






1010 




1 






¿0 7 ^ 






i 0 J J 


¿•y 1 V 




1 P77 






5740 






t / iJO 






*T *T -ij / 


7030 




4099 


7035 




6067 






1161 
1101 


7045 






1 0000 




1 770 


1 0007 


_ 


1 577 


10004 




1340 


10006 


_ 


1567 






1 S 1 7 
X X / 






S 1 7A 

□ 1/0 


7ññC^ 1 




346R 


70005 




941 7 


70006 












20008 




2636 


20009 




1050 


20010 




143 



TOTAL= 429145 



Apéndice A 




Para usar el "joystick" en juegos que empleen el teclado necesitarás reemplazar las 
llamadas de USR a la posición 6f)pp0 (que lee el teclado) por una subrutina en BASIC 
como la siguiente. (Utiliza STICK(l) para leer del mando 1 o STICK(2) para el mando 2. 
o STICKÍP) para leer del teclado.) 

A = STICK(l) 

IF (A-p) THEN RETURN (al programa principal) 

IF (A = 1) OR (A = 2) OR (A = 8) THEN (mover arriba) 

IF {A = 8) OR (A = 7) OR (A = 6) THEN (mover a !a izquierda) 

IF (A = 6) OR (A = 5) OR (A = 4) THEN (mover abajo) 

IF (A = 2) OR (A = 3) OR (A = 4) THEN (mover a la derecha) 

Estas sentencias de "mover" podrían ser llamadas USR a la posición 6fH18, acom- 
pañadas de los POKEs adecuados (ver apéndice C. "Programa soporte"). 

Para alterar el fuego, modifica, simplemente, cualquier referencia a STRIG(0) por 
STRIG(Í) para el mando 1, o STRIG(2) para el mando 2. 

Valores del mando, STICK(N) 



ARRIBA 

! 




5 

ABAJO 
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Apéndice 

Constructor de 



B 

sprites 




Este programa facíliia la creación de sprites moviendo el cursor y definiendo puntos 
en los lugares deseados. Cuando lias terminado, el programa te facilita los números que 

necesitas para crear el sprite en tu programa. Si vas a poner estos números en una sen- 
tencia DATA, con las siguientes instrucciones crearás un sprite de 16 x 16: 

ip A| = " FOR 1 = 1 TO 32: READ Q: A^ = Aj + CHR|(Q): NEXT I; 
SPRITEÍ(P)=A9 

Si cambias "32" por "8" crearás un sprite de 8 x 8; puedes utilizar este tipo de sprites 
para redefinir caracteres. 

Las instrucciones de este programa están incluidas en é) mismo, y, además, a la derecha 
de la matriz te aparece el sprite según lo vas construyendo. 
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SUGERENCIAS AL PROGRAMA 

Puedes establecer el color de sprite añadiendo el número de color al final de la sen- 
tencia "PUT SPRITE" en las líneas 12p y 52^). 

Si quieres ver el sprite en modo ampliado, puedes hacer que el programa dé a elegir 
entre los modos, y modificar las cajas de alrededor de los sprites adecuadamente. 



Variables del programa 

MA(L J) Matriz del sprite (1 a %. 

PC Posición del cursor. 

CB Carácter bajo el cursor. 

FI Fila. 

CO Columna. 



O 

o 
o 

o 

o 
o 
o 
o 
o 
o 



15 



100 

105 
110 



Inicislización 



KEY DFF: COLOR 1,15,15: SCREE 
N 1,2: PRINT"_CONSTRUCTDR„DE 
^SPRITES" 

PRINT: PRINT: PRINT: INFUT"EL 
J,GE^8*8„ ( ' 8' ) „0„„^^_^„^^„^^« 
„16*16„(' 16' ) Xt 
IF Xí="16" THEN 500 ELBE IF X 
$="8" THEN 100 ELBE PRINT"REP 
ITE": GÜTO 15 



Preparar pantalla (sprite 8x8) 



CLB:PRINT: PRINT: PRINT-'^Puls 
a^' ESC „para„-f inal i zar . " 

PRINT: PRINT: PRINT"_„+ 

+":FDR 1= 1 TO S : FRINT"^ 

^^ff": NEXT: PR1NT"„„ 

^+ + " 

PRINT: PRINT: PRINT"^„„Utí 1 i z 
a^las^teclas„del^^^_cursür„pa 
ra^mover": PRINT: PRINT"_Pul 
sa„' P' ^para„f i j ar^un^„^„„„pun 
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115 
120 

125 



to.": PRINT : PRINT V^Pul sa„' 
E' „para«borrar. " 
PC=6473-64: CB=32: FI=4:CÜ=4 
At="": SPRITE* (0)=A$: PUT SFR 
ITE O, (167,86) 



VPDKE 6484,24: 
VPGKE 6486,25: 
VPDKE 6518,22: 
VPOKE 6548,26: 



VPGKE 6485,23: 
VPOKE 6516,22: 
VPDKE 6549,23: 
VPOKE 6550,27 



200 
250 
255 
260 

265 

270 
275 
280 
285 
290 



Control (sprite 8x8) 



Xt=INKEY$: VPOKE PC, 255 

IF X$="" THEN 200 

IF X$=CHR$(27) THEN 400 

IF X$="P" OR X$="p" THEN VPDK 

E PCjCB: GOTO 300 

IF Xt="B" OR Xt="e" THEN VPDK 

E PC,CB: GOTO 310 

IF X$=CHRt(30) THEN 320 



IF X$=CHR$Í29) 
IF Xt=CHRt(31) 
IF X*=CHR$í28) 
GOTO 200 



THEM 330 
THEN 340 
THEN 350 



Mover/dibujar/borrar 



300 IF VPEEKÍPC)=255 THEM 200 ELS 

E CB=255: MA(FI,CQ)=1: GOTO 
380 

310 IF VPEEK(PC)=32 THEN 200 ELSE 

CB=32: MA(FI,CO)=0: GGTO 380 

320 IF FK2 THEN 200 ELSE FI=FI-1 

: VPOKE PCjCB: CB=VPEEK (PC-32 
) : PC=PC-32: GOTO 200 

330 IF C0<2 THEN 200 ELSE C0=C0-1 

: VPOKE PC,CB: CB^VFEEK (FC-1 ) 
: PC=PC-1: GOTO 200 

340 IF FI>7 THEN 200 ELBE FI=FI+1 

: VPOKE PC,CB: CB=VPEEK íPC+32 
í : FC=FC+32: GOTO 200 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



350 



3B0 



385 



400 

410 

415 
420 

430 



500 

505 

510 
520 



IF C0>7 THEN 200 ELSE C0=C0+1 
: VPOKE PCjCB: CB=VPEEK ÍPC+1 ) 
: PC=PC+1: GOTO 200 



Visualizar spríte 8x8 



K2=14335+FI:K=VPEEK(k:2) : Kl=2 
'MS-CO): IF MAíFI,CGl=l THEN 
K=K+Kl: VPOKE K2,K: GGTD 203 
KHÍ-Kl: VPÜKE K2,K: GQTÜ 200 



Fin (sprile 8 x 



CLS: PRINT"Numeros_para^las„s 
entencias„'DATñ' "5 PRINT: FRI 
NT: PRINT 

FGR 1=14336 TÜ 14342: PRINT U 
SING"ttM"; VPEEK.Cl);: PRINTV 
";: NEXT 

PRINT: PRINT: PRINT: PRINT US 

ING"###"5 VPEEK.(14343) 

FGR I-l TO 4: PRINT: NEXT: PR 

INT"Fulsñ^una,^tecIa„pñra^eínpe 

sar„de^nuevo": PUT SPRITE O, ( 

127, 150) 

IF INKEYÍ="" THEN 430 ELSE 
RUN 



Preparar pantalla (sprile 16 x 16) 



CLS: PRINT"Pulsa^'£SC'„para„t 
erminar": PRINT 

PRINT"+ +": FQ 

R 1 = 1 TO 16: PRINT"#_ 

„^^^„^^#":NEXT: PRINT "+ 



DIM MA(16, 16) : PC=é474: CB=32 
: FI=S: cb=B 

A*="": SPRITE$(0)=A$: PUT SPR 
ITE 0, (216,86) 
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525 
526 
527 
528 



700 

710 
720 

730 

740 

750 



VPGKE 6490,24: VP0KE6491 , 23: 
VPOKE 6492,23 

VPOKE 6493,25: VPDKE 6522, 22 i 
VPOKE 6525,22 

VPOKE 6554,22: VPOKE 6557,22; 
VPOKE 6587,23 

VPOKE 6588,23: VPOKE 6586,26; 
VPOKE 6589,27 



Control (spríte 16 x 16) 



600 


X$=INKEY$: VPOKE PC, 


255 


650 


IF X$="" THEN 600 




655 


IF X$=CHR$(27) THEN 


800 


660 


IF X$="P" DR X$="p" 


THEN 




E PC,CB: GOTO 700 




665 


IF X$="B" GR X$="b" 


THEN 




E PCjCB: 6GT0 710 




670 


IF X$=CHR$(30) THEN 


720 


675 


IF X$=CHR$(29) THEN 


730 


680 


IF X$=CHR$(31) THEN 


740 


685 


IF X$=CHR$(28) THEN 


750 


690 


GOTO 600 





Mover/dibujar/ borrar 



IF VPEEK(PC)=255 THEN 600 ELS 
E CB= 255: MA(FI,CQ)=1 : GOTO 
780 

IF VPEEK(PC)=32 THEN 600 ELSE 

CB=32í MA<FI,CO)=0: GOTO 780 

IF FK2 THEN 600 ELSE FI~FI-1 

: VPOKE PC,CB¡ CB=VPEEK(PC-32 

): PC=PC-32: GOTO 600 

IF C0<2 THEN 600 ELSE CG=C0-1 

: VPOKE PC,CB: CB=VPEEK ÍPC-U 

: PC=PC-1: GOTO 600 

IF FIM5 THEN 600 ELSE FI=FI+ 

1: VPOKE PC,CB: CB=VPEEK(PC+ 

32) ; PC=PC+32: GOTO 600 

IF CQ>15 THEN 600 ELBE CQ=CQ+ 

1: VPOKE PCjCB: CB=VPEEK (PC+1 

>: PC=PC+1: GOTO 600 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



Visualizar sprite 16 x 16 



780 
785 



790 
795 



800 



810 



815 



820 



830 



IF C0<9 THEN K1=0 ELSE Kl=l¿ 
K2=14335+Fr+Kl : K-VPEEK (K2) : 
IF C0<9 THEN H;:i==2'- ÍS-CO) ELSE 
Kl=2^(16-C0) 

IF MA(FI,C0)=1 THEN K=K+K1: 
VPOKE K2,K: GOTO 600 
K=K-K1:VP0KE K2,K: GOTO ¿00 



Fin (sprite 16 x 16) 



CLS: PRINT"Numeros^para^las«s 
entencias^'DATA' ": PRINT"^Lee 
r„de^i zqui erda„a„derecha" : PR 
INT 

POR 1=14335 TO 14356 STEP 7: 
PRINT: PRINT: POR J=l TO 7 : 
PRINT USING"###".; VPEEKCI+J); 
: PRINT NEXT: NEXT 

PRINT: PRINT: FOR 1=14364 Tü 
14367; PRINT USING"##ft"; VPEE 
K(I);: PRINT"„"í: WEXT 
FOR 1=1 TO 3: PRINT: NEXT: PR 
INT"„Pulsa^una^tecla„para^e(np 
ezar^de^nuevo": PUT SPRITE O, 
(120, 165) 

IF INKEYt="" THEN 830ELSE RUN 



Tabla de claves 



10 




3770 


125 




5134 


280 




1389 


15 




3548 


200 




1340 


285 




1389 


20 




4278 


250 




1032 


290 




593 


100 




3593 


255 




1449 


300 




4463 


105 




4510 


260 




2948 


310 




3939 


110 




13738 


265 




2916 


320 




6140 


115 




2367 


270 




1373 


330 




6173 


120 




2258 


275 




1373 


340 




6137 
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350 =6170 

380 = 7434 

385 = 2007 

400 = 4714 

410 = 2988 

415 = 1934 
420 6590 

430 = 1484 

500 = 3181 

505 = 5351 

510 = 2712 

520 = 2297 

525 = 1488 

526 = 1556 

527 = 1704 



52B 




1780 


600 




1340 


650 




920 


655 




1292 


660 


= 


3076 


665 


— 


3078 


670 




1516 


675 


— 


1516 


680 




1532 


685 




1532 


690 




483 


700 




4271 


710 




3751 


720 




5902 


730 




5935 



740 




5978 


750 




6005 


780 




1845 


785 


- 


6417 


790 




3206 


795 




1879 


800 




7629 


810 




5442 


815 




3392 


820 




6635 


830 




1374 



TOTAL= 225186 
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Apéndice C 

Programa soporte 



Este programa (se necesita en algunos programas de este libro) debe ser cargado y 
ejecutado antes de que cargues tu programa. 
Pasos a seguir: 

1. Mete este programa, utiliza ei verificadoi para depurarlo y después grábalo como 
"SOPORTE". 

2. Cárgalo cq memoria y ejecútalo. 

3. Carga en memoria tu programa depurado y ejecutado; él llamará y usará a éste 
cuando sea necesario. 



O 

o 
o 
o 

o 
o 
o 
o 
o 



20 



1010 



1020 



1030 



CLS: FRINT "SOPORTE" 

FOR 1=60000! ID 60217!: READ 

Q: POKE I,Q : NEXT 

DATA 219, 170,230,24(?,33,92, 

234,94,246,8,0,0,0,0,0.0,0,0. 

0,0,0,211, 170,219, 169,71,0,0, 

0,0,0,0,0,0 

DATA 0,0,0,230,128,194,151, 
234,203,91,202,151,234,62,3, 
50,94,234, 195,209,234, 120,230 
,64, 194, 170,234,203,83,202, 
170,234,62,2 

DATA 50,94,234,195,209,234, 
120,230,32, 194, 189,234,203,67 
, 202, 189, 234, 62, O, 50, 94, 234, 
195,209,234, 120,230, Í.6, 194, 
208 ^ 234 ^ 203 \ 75 , 202 , 203 j 234 , 62 
,1,50,94,234, 195,209,234,201, 
62,0,50,93,234,58 
DATA 93,234,203,39,203,39,79, 
6,0,33,0,27,9,58,95,234,71,58 



,94 
205 
235 



234 , 87 , 254 , O , i 94 , 250 , 234 , 
27,235, 121, 152,79, 195,44, 
254 
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o 
o 
o 
o 



1040 DATA 1, 1V4, 6, 2-35, 35, 205,27, 

235, 195,244,234,254,2, 194,2&, 

235,205,27,235, 121, 128,79, 195 
, 44, 235, 35, 205, 27, 235, 195, 14, 
235, 125,243,211 
1050 DATA 153, 124, 21 1 , 153, y, 0, O, O, 
219, 152,79, 183, 251, 20U 125, 
243,211, 153, 124,246,64,211, 
153, 121,211, 152,251,201 



Tabla de claves 



10 = 1044 
20 = 2233 
1000 = 7068 



1010 = 10317 
1020 - 21367 
1030 = 10298 



1040 = 11087 
1050 = 8282 
TQTAL= 71696 
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Programa de demostración 




Esle programa demuestra y explica el programa SOPORTE utilizado para mover los 
sprites. Eslá dividido en dos partes: la primera trata de la lectura del teclado, y la segun- 
da, del movimiento de sprites. 



295 



SUGERENCIAS A ESTE PROGRAMA 

La segunda parte sólo permite a! usuario elegir direcciones para mover el sprite, pero 
puedes modificar el "1" de la línea 9(J para variar la velocidad, o puedes también rees- 
tructurar el programa para que dé a escoger la velocidad a! ejecutarse el programa. 



Variables del programa 



Tecla apretada, 
V Temporal, 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



7 
8 
10 

15 



25 



Inicialización 



REM MAQUINA SOPORTE 

REM DEL PROGRAMA 

REM VER APENDICES 

COLOR 15,4,7; SCREEr'4 1,1: KEY 

OFF 

FOR 1=1 TO 6: READ Q: A$=AÍ+C 
HR$(Q): NEXT: SPRITE$(0)= At: 
GOTO 200 



Primera parte: leer del teclado 



26 



CLSí PRINT TAB(3) "DEMOSTRACIO 
N„DEL^CÜDIGO": PRINT TAB(5)"M 
AQUINA^SOPORTE^DEL": PRINT TA 
BÍ10) "PROGRAMA": PRINT: PRINT: 
PRINT: PRINT TABUl) "FARTE^l 
": PRINT: PRINT 
DEFUSRe=6O0eí) í ; PR I NT " ^„La„pr i 
íiiera„rut i na^emp i ez a„„en„l a^po 
si ci on^60O0O. ^Si r ve„„p5.ra^mov 
er„el ^spr i te„can_l s.s^tecl as^d 
el^cursor. "rPRINT "^„Las„4_.di 
recci ones^posi b 1 es^estan^nume 
radas^c oíno^si gue : " ; PR I NT 
FR I NT : PR I NT " PULS A^UNA^TECLA " 
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27 IF INKEY*="" THEN 27 

30 PRINT: PRINT TAB(13) ''O": PRIN 

T; PRINT TAB(13)'^U": PRINT TA 
B(13>"V": PRINT TAE í9) " l^UWWW 
Ll^3": PRINT TAB(13)"V": PRIWT 
TABÍ13)"U": PRINT: PRINT TABÍ 
13) "2": PRINT: PRINT'^PÜLSA^UN 
A«TECLA„P ARA„SEGü I R " 
40 IF INKEY$="" THEN 40 

45 CLS:PRINT"„^La„po£Íci □n^59999 
^control a^l a^distancia^a^l a^q 
ue„niover„^el „spr i te^y„l a^5999 
6^1 as„„^„„di rece i ones^perini t i 
das. ^Mete^numeros„del„0-15^co 
n^un„„„^^^POKE^en^la^pDSicion 
„57776^y^^t endr as^tod as " 

46 PRINT " 1 as^di rece i onss " 

47 PRINT "„^Para^ver^GStD„introd 
uce„^^„dist intos„nuiTierDS„y„pu 
1 sa„^«^l as^tecl as^del „cursor . 
": PRINT: PRINT 

50 PRINT "„^PULSA„'a'„PARA^REPET 

I R . " : PR I NT " ^^PULS A^ ' ESC ' „PARA 
«TERMINAR.": PRINT 

55 INPUT "distancia";!): PRINT: I 

NPUT "direcciones(0-I5) ";X* 

60 PRINT : PRINT: PUT SPRITE O, ( 

120, 175) , 1 

65 PDKE 59999 Í,D: PQKE 59996 í , VA 

LÍX$): I=USRO(I): A$=INKEY$: 
IF A$="A" OR A$="a" THEN 59 E 
LSE IF Aí=CHR$(27) THEN PUT S 
PRITE 0,(100,200): GOTO 200 E 
LSE 65 



Segunda parte; movimiento de sprites 



75 CLS: PRINT TAB(ll) "PARTE 2"! 

PRINT: PRINT^^^Esta^rutina^em 
pieza«en„la„„pos. ^h,<í\ IS^y^mue 
VG„eI „5pr i te^que^debe^si tuars 
e^en^l a^pos. „59997, ^1 a^direcc 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



80 



85 

90 
95 



96 



200 

205 



210 
220 



i on^en^l a „„59998„y„l a„d i sta 

ncia„en„la„^„59999. " 
PRINT:PR1NT "_Pu.I sa„' RETURN' 
„para„camb i ar„l a^d i r ec c i on . " : 
PRINT: PRlNT"„„Pu.lsa„' ESC'Kpa 
ra^terminar. PRIMT 
DEFUSR1=60118! : POKE 59997!,© 
: PUT SPRITE O, (10, 175) , 1 
POKE 59998 ¡ , 1 : POKE 59999 ! , 1 
I=USRlíI): X$= INKEY*: IF X$= 
THEN 95 ELSE IF X.$=CHR$Í27 
) THEN PUT SPRITE 0,(100,200) 
: GOTO 200 ELSE IF )($ <>' CHR$ 
(13) THEN 95 

lNPUT"Direccion (0-3) X$: K=V 
ALÍX$): IF K<0 OR K>3 THEN PR 
INT "Repite"; GOTO 96 ELSE PO 
KE 59998 !,K: CLS: PRINT "«^Pul 
sa„' RETURN' ^para.„ca./nb i ar^de^d 

ireccion. ":PRINT" puIsa^'ESC 

' ^para„termi nar. " : G0TQ95 




1000 



CLS: PRINT"^DEmST.^C€L„CODIG 
a„MAQIJINA" 

PRINT: PRINT TAB<2) "Pulsa:": 
PRINT: PRINT TflBÍ3) l'„para„ 
„^^DEM0„PART£„1": PRIMT: PRIN 
T TAB(3) "'2'„para^^_DEM0^PAR 
TE^2":PRINT: PRINT TAB(3)"'F' 
„para^„^„-f i nali zar " 
PRINT: PRINT: PRINTTAB (2) "seg 
un„I a^opci on^que^el i j as " 
X$=INKEY$: IF X$="l" THEN 20 
ELSE IF X$="2" THEN 75 ELSE I 
F X*="F" OR X$="-f" THEN SCREE 
N 1: PRINT: PRINT: PRINT TAB ( 
10) "--ADIOS! ! ": ENDELSE220 
DATA 24,60,102,255,255,24,36, 
66 
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Tabla de claves 



5 




0 


40 




979 


90 


= 1 =i'^3 


6 




0 


45 


_ 


27897 


9*5 


= 8437 


7 


_ 


0 


46 




1821 


96 


= 1 97*^4 


8 




0 


47 





9224 


700 


— Oc^RR 


10 





1235 


50 





5390 




- 111 Cscr 

— i i i •j'iJ 


15 






5=1 






OIA 


— T"7^n 

— / Do 


20 




10588 


60 




1400 


220 


= 8796 


25 




25606 


65 




10795 


1000 


= 1583 


26 




1635 


75 




22507 






27 




966 


80 




8371 


TOTAL= 


207884 


30 




11049 


85 




2879 
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Apéndfce O 

Rutina código máquina 

de movimiento de psntaiia 



Se usan varias subrutinas en código máquina para mover la pantalla en esle libro, 
pero son todas muy parecidas a la del siguiente ejemplo: 



^ '■ 5 REM EJECUTA EL CODIGO 

6 REM MAQUINA SOPORTE 

Q , 7 REM DEL PR08RAMA 

8 REM VER APENDICES 

10 SCREEN Is COLOR 15, 4, 7 :KEY 

Q 1 DFF: FOR I=AO350I TD 60401!: 

READ Q: POKE I,Q : NEXT 

15 DEFUSR=6e350: : POKE 60346 
O ¡ POKE 60347! ,24 

16 POKE 60348 í, 255: POKE 60349!, 
26 

O ¡ 20 PRINT "^^DEMOSTRACIDN^DE^LA^ 

RUT I NA " : PR I NT " EN„COD 1 G 

0„MADU 1 NA " : PR I NT " ^^^„„QUE„AN 
O ! IMA^LA^PANTALLA" 
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o 



25 FOR 1=1 TO \0i PRIMT: NEXT: P 

RINT" PULSA^UNñ^TECLA^PñRñ^EM 
PEZñR":PRINT : PRINT"^^PUL5A^ 
O I 'ESC'^PARñ^TERniNñR" 
' 30 IF INKEY*="" THEM 30 

40 CLS: PRINT"„Estñ„rutins^de„ñn 

O [ imacion„de^pantal la„es„u.n„eje 

mplo^de„las"í : PRINT"u.5adas^e 
n„este„l ibro. " 
O i 45 FGR 1=1 TO 5:PRINT:NEXT: PRIN 

T PULSA 'RETURN' ":PRI 

NT:PRINT"^^„^„CUñNDG„ESTES„LI 
O I STD" 

50 IF INKEY$=CHRt(I3) THEN 55 

ELSE 50 

55 D=ÜSR(D)E Xt=INKEY*: IF X*=CH 

R*(27> THEN SCREEN 1: PRINT " 

ADIOS! ! í ! END 

60 SDTG 55 

10000 DATA 6,31,42,186,235,43,35, 

205,27,235, 120.254,31,202,215 
,235,4,43,205,44,235.35, 195, 
227, 235, 6, O, 17, 31 , O. 25, 205, 44 
Q ¡ ,235,183,237,82,237,91,188, 
235, 123, 1B9, 194, 196,235, 122, 
188 

Q ¡ 10010 DATA 194,196,235,201 



O 
O 
O 



Tabla de claves 



5 




0 


16 




1614 


50 


= 1782 


6 




0 


20 




13948 


55 


= 5270 


7 




0 


25 




10377 


60 


= 444 


8 




0 


30 




969 


10000 


= 18692 


10 




3647 


40 




14002 


10010 


= 962 


15 




2295 


45 




9904 


TDTñL= 


83906 
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¿Está tu MSX preparado para la invasión de las cucarachas 
cósmicas, de los espías del planeta Circón y de las naves- 
robot suicidas? ¿Conoces al gorila de Godofredo? 

EL LIBRO GIGANTE DE LOS JUEGOS PARA MSX es la 
recopilación más fascinante que puedes encontrar de juegos 
que desafían a tu microordenador MSX. 

Los listados están especialmente estructurados para que su 
transcripción y depuración sean fáciles y rápidas. 
Encontrarás juegos que son todo un reto para tus reflejos, 
tu lógica o tu intuición: simulaciones, juegos de aventura, 
mata-marcianos, juegos educativos... ¡Y muchos más! 

Todos los programas utilizan al máximo la capacidad 
gráfica (manejo de "sprites") y de sonido de tu MSX 
muchos de ellos usan el código máquina. Con cada 
programa encontrarás la descripción de las variables 
utilizadas, el diseño de los "sprites" y sugerencias para que 
amplíes y modifiques los juegos hasta donde tu imaginación 
te lleve. 

EL LIBRO GIGANTE DE LOS JUEGOS PARA MSX abre las 
puertas a una nueva y fascinante dimensión de los 
videojuegos. 






